🚀 go-pugleaf

> No cóż... Głupi jestem... Nawet przepisać dobrze nie potrafię :] Wersja
> poprawiona (nie wiem czemu ja tamto tak napisałem :\ )
Pewnie sie spieszyles :>

> $lineNumber = 0;
Nie mecz sie sam kiedy mozesz byc leniwy...

HANDLE->input_line_number(EXPR)
$INPUT_LINE_NUMBER
$NR
$.

Current line number for the last filehandle accessed.
Each filehandle in Perl counts the number of lines that have been read from it.

> No ale to chyba na to samo wychodzi co w Twoim rozwiązaniu. Dlaczego
> więc niektóre "nie" są opuszczane?

przyklad: 'tak nie tak nie'

word in lne 'tak nie tak nie':
  (pos=0) tak nie tak (pos=11)

regexp znalazl nastepujacy kawalek 'tak nie tak'. Znalazl na pozycji 0, omija 
wiec caly kawalek, ktory znalazl i ustawia sie na pozycji 11. W kolejnym 
przebiegu wyszukuje zadanego stringa w nastepujacym stringu: ' nie'. Poniewaz 
przed 'nie' nie ma ani normalnego slowa ani poczatku stringa, wiec drugie 
dopasowanie nie nastapi. Regexp, jesli ma kontynuowac szukanie (przelacznik g), 
ustawia sie bezposrednio za tym, co wlasnie znalazl.

Jesli sie chce, dostac w wyniku takie znaleziska:
'tak nie tak'
'tak nie'

trzeba uzyc asercji, ktora rowniez zmusza regexp do znalezienia tego, co w niej 
jest, natomiast nie zostaje uwzgledniona w $& czyli w wyszukanym stringu.

Regexp bedzie wygladal nastepujaco:

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

Przy czym print wypisze tylko:
word in lne 'tak nie tak nie': tak nie
word in lne 'tak nie tak nie': tak nie

bo $& nie zawiera trzeciego slowa z dopasowania. Zeby je wyswietlic musisz 
dodac $3 do stringa:
printf("word in lne ${line}: $& $3\n");

To z grubsza tyle :)

pzdr
Grizzley

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