[PERL] String matching

[Unrue]

Ciao,
ho iniziato oggi a scrivere qualcosa in Perl, prima volta. Dunque, devo leggere delle righe da file e matcharle con una stringa. Ho scritto questo:


#!/usr/bin/perl
$filename = $ARGV[0];

$results = $ARGV[1];

open(FILE_IN, "< $filename") || die "Errore in apertura file!";


$compare= "procs= 2 1024 4.6 0.2 32 2.4 4.6";

open(FILE_OUT, "> $results");



@righe = <FILE_IN>;

for ($i=0; $i<=$#righe; $i++) {

if ($righe[$i] eq $compare)

{ print 'ciao';
}
}

#while ($prova = <FILE_IN>) {
# print $prova;
# }

for ($i=0; $i<=$#righe; $i++) {
print FILE_OUT $righe[$i];
}


Solo che, nonostante la stringa ci sia nel file, non la rileva. Dove sbaglio? Grazie.:)

[Unrue]

Ho risolto, mancava un \n alla fine della stringa di comparazione.