Bonjour à tous,

J'ai cette fonction:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
sub TextToHTML()
{
      my $TEXT=shift;
      my %HTMLCar=(
                    \xE0=>'&agrave',
                    \xE9=>'&eacute',
                    \xE8=>'&egrave',
 
      );
      foreach my $keys (keys %HTMLCar)
      {
            open (fic,">>./z.txt");
            print fic "$TEXT\n";
            close(fic);
            $TEXT=~s/$keys/$HTMLCar{$keys}/g;
      }
      return $TEXT;
}
qui devrait convertir les é,è,à etc (etc ... ,enfin pas là) en leur équivalent HTML.
Mais cela ne fonctionne pas !!!!

Lorsque j'essaie avec l'exemple suivant:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Hé, bonjour à tous !!
J'obtiens dans mon fichier z.txt
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Hé, bonjour à tous
au lieu d'obtenir (c'est ce que je voudrais)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
H&eacute,bonjour &agrave tous !!
Que fais je de mal ???


Merci pour vos réponses !