[langage] [Fichier]problème modification de fichier
Voici mon code.
Il est sensé ouvrir en lecture/écriture et modifier un fichier nommé windyc.txt
Le fichier windyc.txt contient 6 lignes égales à la chaine de caractère "lulu" que je veux changer en "lili".
Mon problème est que le programme n'entre pas dans la boucle while ci-desous. Je le sais parce que l'instruction
Code:
print "entree dans le while\n";
n'est pas exécutée.
Je bosse sous windows.
Merci pour l'aide
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
| #!/usr/local/bin/perl
$w="windyc.txt";
$ancien="lulu";
$nouveau="lili";
if(open(TOTO,">>$w")){print "ouverture en ecriture du fichier $w\n";}
else {die("impossible d'ouvrir le fichier $w\n Erreur $!\n");}
print "avant le while\n";
while(<TOTO>) {
print "entree dans le while\n";
$_ =~ s/$ancien/$nouveau/g;
print TOTO $_; print TOTO "toto";
}
close(TOTO); |
