lorsque tu utilises un "<" dans la fonction open() tu ouvres le fichier en lecture
il faut utiliser un ">" pour l'ouvrir en écriture
le mieux est de remplacer le fichier par un autre fichier (tu te feras moins cher avec les boucles bizarres)
Code :
- $fichier_in = "H:\\test.txt";
- $fichier_out = "H:\\test2.txt";
- open (FILE_IN, "$fichier" ) || die "Erreur de lecture de $fichier, error_msg = $!\n" );
- my @all_lines = <FILE_IN>;
- close FILE_IN;
- open (FILE_OUT, ">$fichier_out" );
- foreach $item (@all_lines)
- {
- $item =~ s/t/p/g;
- print FILE_OUT $item;
- }
- close FILE_OUT;
|
Code à tester...
Message édité par couak le 16-03-2005 à 13:39:45