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 : Sélectionner tout - Visualiser dans une fenêtre à part
print "entree dans le while\n";
n'est pas exécutée.

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);