[PERL/regexp] Convertir du texte accentué en texte HTML

Bonjour à tous,

J'ai cette fonction:

Code:

---

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:

---

1 2	Hé, bonjour à tous !!

---

J'obtiens dans mon fichier z.txt

Code:

---

1 2	Hé, bonjour à tous

---

au lieu d'obtenir (c'est ce que je voudrais)

Code:

---

1 2	H&eacute,bonjour &agrave tous !!

---

Que fais je de mal ???


Merci pour vos réponses !

voilà ce que je fais pour convertir tous simplement les accents dans un fichier.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

if ($ligne =~ /[éèàûôçâêîùûäïëö]/gi){ $ligne =~ s/é/é/g; $ligne =~ s/è/è/g; $ligne =~ s/à/à/g; $ligne =~ s/û/û/g; $ligne =~ s/ô/ô/g; $ligne =~ s/ç/ç/g; $ligne =~ s/â/â/g; $ligne =~ s/ê/ê/g; $ligne =~ s/î/î/g; $ligne =~ s/ù/ù/g; $ligne =~ s/û/û/g; $ligne =~ s/ä/ä/g; $ligne =~ s/ï/ï/g; $ligne =~ s/ë/ë/g; $ligne =~ s/ö/ö/g; }

---

Mais tous dépend souvent de l'editeur de texte qui peut ne pas reconnaitre le caractere accentué. Je sais plus comment je m'etais debrouillé sur ultraedit, j'avais du le passer en utf 8 je crois, je sais plus.
Sinon, si tu utilise HTML:Parser, il y a une methode qui gere la conversion des caracteres accentués encode_entities

Bon courage!!

Ok, merci bien !!

ça n'a pas fonctionné avec ta fonction (peut-etre à cause de l'éditeur de texte (psPad)), mais avec le module HTML::Entities, nickel.

Code:

---

1 2 3 4 5 6 7 8

use HTML::Entities; sub TextToHTML() { my $TEXT=shift; $HTMLTEXT=encode_entities($TEXT); return $HTMLTEXT; }

---

Merci donc et bonne journée :!: :!:

Ne pas oublier le tag résolu :D