🚀 go-pugleaf

No to na poczatek kilka uwag: jesli wczytujesz linie do zmiennej $linia to po 
pierwsze linijka
$line = 0
jest niepotrzebna. Po drugie w petli zaraz po wczytaniu kazdej linii zwiekszasz 
zmienna $line o 1. Perl w takim przypadku zaczyna traktowac to, co w zmiennej 
$line za liczbe i poniewaz na poczatku nie ma zadnych cyfr, to konwertuje ja do 
wartosci 0. Dodaje jedynke i zmienna $line zamiast ciagu znakow zawiera wartosc 
1, w ktorej nijak nie ma prawa wystapic ciag z regexpa. Jesli chcesz znac numer 
linii w pliku, ktora wlasnie odczytales, to uzyj zmiennej $., ktora ta dana 
posiada.
Sprobuj tak:

> $word = 'nie';
> while ( $line = <INP>)
> {
>     while( $line =~  /(^|([^\s]+\s))\s*${word}((\s+[^\s]+)|(\s*$))/g )
>     {
>         printf("word in lne ${line}: $& \n");
>     }
> }

I u mnie jesli plik wyglada tak:

-poczatek pliku-
Zbyszek Malec       Ustronie 104         gg: 2756100
nie     nie     nie
tak, tak. tak, taaak.
nie tak nie
tak nie tak nie
-koniec pliku-

to wynik wyglada tak:
word in lne nie     nie     nie
: nie     nie
word in lne nie tak nie
: nie tak
word in lne tak nie tak nie
: tak nie tak

I jesli bedziesz mial uwagi co do tego, ze w drugiej linii jest znalezione 
tylko jedno 'nie' to jeszcze pogadamy o assertach :)

pzdr
Grizzley

-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl