Błąd W Skrypcie Wyszukiwania

[Kriss]

Mam problem, zacząłem sie uczyć Perla, i nie wiem gdzie tu jest błąd w tym skrypcie. Może mi pomorzecie...

#!/usr/bin/perl
$slowo=$ARGV[0];
$plik=$ARGV[1];
if ( $plik ) {
    open(PLIK, "$plik") or die "Nie moge otworzyć pliku: $!\n";
    while ($linijka = <PLIK>) {
 if ($linijka eq $slowo) {
 print"znalazlem slowo w linicje:$linijka, w pliku: $plik\n"; }
 }
    close PLIK;
} else { print"skladnia: wyszukaj [slowo] [plik]\n"; }

 

Nie wiem czemu nie umie nic znalezc :/

[The Structorr]

Nie znam w ogóle Perla, ale po pobieżnym przejrzeniu kilku tutoriali popełniłem coś takiego

#!/usr/bin/perl
$slowo=$ARGV[0];
$plik=$ARGV[1];

if ( $plik ) {
 open(PLIK, "$plik") || die "Nie moge otworzyć pliku: $!\n";
 @dane=<PLIK>;
 close PLIK;
} 
else { 
 die "skladnia: wyszukaj [slowo] [plik]\n"; 
} 

foreach $linijka (@dane) {
 $nr_linijki++;
 if ($linijka =~ $slowo) {
   print"znalazlem slowo '$slowo' w $nr_linijki linicje w pliku: $plik\n"; }
}

chyba mniej więcej o to Ci chodziło. Pewnie da się to zrobić lepiej, ale jak napisałem z Perlem mam doczynienia od 20 min.

 

Linki które mi pomogły:

http://www.pageresource.com/cgirec/index2.htm

http://www.perlmonks.org/index.pl?node=Tutorials

http://www.cclabs.missouri.edu/things/inst...perlcourse.html

 

Pozdrawiam