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'instructionn'est pas exécutée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part print "entree dans le while\n";
Je bosse sous windows.
Merci pour l'aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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);
Partager