File "remplace.pl.bak"

Full Path: /home/analogde/www/XTRAIL/andre/PERL/remplace.pl.bak
File size: 219 bytes
MIME-type: text/x-perl
Charset: utf-8

#!/usr/bin/perl
open(FILEINPUT,"$ARGV[0]");
while ($ligne = <FILEINPUT>){
# on remplace dans chaque ligne le motif recherche par remplacement
$ligne=~s/RECHERCHE/REMPLACEMENT/g;
print $ligne;
}
close(FILEINPUT) ;