Discussion :

[LE NEINDRE]

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 !

[djibril]

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

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
 
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 HTMLarser, il y a une methode qui gere la conversion des caracteres accentués encode_entities

Bon courage!!

[LE NEINDRE]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[djibril]

Ne pas oublier le tag résolu