🚀 go-pugleaf

Grzegorz Szyszlo <znik@avalon.wbc.lublin.pl> wrote:

: no dobrze. juz ci mowie po co mi sa zmienne po obydwu stronach.
                                      ^^^^^^^
                                      Ja pytałem po co Ci *stała* po 
                                      lewej stronie.

: chodzi o to, ze w tablicy mam liste wzorcow. analizuje plik
: wejsciowy linia po linii, i kazda linie porownuje z kazdym ze wzorcow.

: np. najpierw z klawiatury, albo wprost do tablicy wpisuje liste
: poszukiwanych slow. np:

: @slowka = ('ala' , 'Ala ' , ' O L A ');
: a potem chce lowic te slowka z pliku wejsciowego <STDIN> na przyklad.

Przede wszystkim poczytaj sobie o funkcji (man perlfunc) grep. Poza 
tym dalej wyrażasz się nieco niejasno, ale myślę że można zrobić coś 
takiego:

while(<>) {
  $linia = $_;
  @znalezione = grep( $linia =~ /$_/, @slowka );
  # ...
}

Ale nie sprawdziłem jak to działa - powinno wrzucić do tablicy 
@znalezione wszystkie słowa z tablicy @slowka które występują w danej
linii.

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND