[TP] remplacer des mots dans un fichier

[cipher16]

Code: Tout sélectionner

#!/usr/bin/perl
$file=shift;
$mot_a_trouver=shift;
$mot_de_remplacement=shift;

open(FILE,$file) or die "Peut pas lire $file";
@contenu=<FILE>;
for(my $i=0;$i<=$#contenu;$i++)
{
   $contenu[$i]=~s/$mot_a_trouver/$mot_de_remplacement/;
}
close(FILE);
print @contenu;
open(FILE,">>$file") or die "Peut pas lire $file";
print FILE @contenu;
close(FILE);
print "\n";