Bonjour à tous,
J'ai cette fonction:
qui devrait convertir les é,è,à etc (etc ... ,enfin pas là) en leur équivalent HTML.
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=>'à', \xE9=>'é', \xE8=>'è', ); foreach my $keys (keys %HTMLCar) { open (fic,">>./z.txt"); print fic "$TEXT\n"; close(fic); $TEXT=~s/$keys/$HTMLCar{$keys}/g; } return $TEXT; }
Mais cela ne fonctionne pas !!!!
Lorsque j'essaie avec l'exemple suivant:
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é, bonjour à tous
Que fais je de mal ???
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Hé,bonjour à tous !!
Merci pour vos réponses !
Partager