File "remplace.pl"

Full Path: /home/analogde/www/XTRAIL/andre/PERL/remplace.pl
File size: 197 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/roi/pat/g;
print $ligne;
}
close(FILEINPUT) ;