Web Solving wrote:
i rebuilt the scipt without using any hash in this way:
open(INFILE,"lista.txt") || die "Cant read lista.txt. Reason: $!";
while( <INFILE> ){
----> Where is the closing braces for this while loop
my ($search, $replace) = split /|/;
open(READIT,"testo.txt") || die "Cant read file.txt. Reason: $!"; open(WRITEIT,">>testo_new.txt") || die "Cant write file_new.txt. Reason: $!"; while (<READIT>) { $riga = $_;
$riga =~ s/$search/$replace/; print WRITEIT "$riga\n";
} close(WRITEIT); close(READIT);
} ---> Please add this
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
