Wyszukiwanie Zawartości Pliku

[wall]

Witam

Nie mogę sobie poradzić z wyszukiwaniem zawartości pliku.

Chcę wyświetlić słowa znajdujące się pomiędzy wartość a zmiennaw tymże pliku

 open(UCHWYT,'<' 'nazwa_pliku') or die "Nie można otworzyć pliku: $!";
       while (UCHWYT)
          {
             $wiersz = ~m/wartosc (.*) zmienna/;
             print $wiersz;
          }

I wywala mi błąd Use of uninitialized value $wiersz in pattern match (m//) at numer wiersza

 

Jak to prawidłowo zrobić ?

[sokar620]

Spróbuj tak:

$wiersz = "wartosc (.*) zmienna"
       while (<UCHWYT>) 
	{ 
	if (/$wiersz/) {
	   print "$1\n";
                  }
	}

Zmienna wiersz jest niepotrzebna

        while (<UCHWYT>) 
	{ 
		if (/wartosc (.*) zmienna/) {
		print "$1\n";
		}
	}

[wall]

Swietnie, prawie ze dziala

$poczatek="patern\"\>"
$koniec="\<\/a\>"

   while (<UCHWYT>) 
               { 
                       if (/$poczatek (.*) $koniec/) {
                       print "$1\n";
                       }
               }

W tym wypadku nie znajduje mi wartosci pomiedzy patern"> a </a> chociaz te elementy wystepuja w pliku

 

EDIT:

Jezeli uzyje Twojej funkcji do pliku, w której mam taki ciag znaków:

wartosc szesc zmienna zmienna tekst tekst tekst wartosc piec zmienna

wartosc cztery zmienna

 

to wyswietli mi cala zawartosc pliku

[sokar620]

Na pewno wyświetla całą zawartość pliku? Wzorzec (.*) dopasuje wszystko co jest między $poczatek i $koniec a wewnątrz ciągu znaków mogą się one powtórzyć dowolną ilość razy.

[wall]

Problem rozwiązany. Nie wiedziałem, że Perl czyta znaki białe w wyrażeniach regularnych...

Co do wyświetlania całej zawartości pliku to programik już jej nie wyświetla.

Kiedy testowałem Twój fragment musiałem coś namieszać w warunkach

 

Można zamknąć