Perl, XML RPC et caractères spéciaux.

**yanndan** · 08/02/2006, 10h37

Bonjour tout le monde.
J'utilise un serveur XML RPC pour chercher des informations dans des fichiers XML. Ces fichiers XML sont des fichiers en français encodés en iso 8859-1 : il y a des caractères tels que :
è,é,à,ç,...
Le problèmes est quand je requete le serveur XML et que la réponse contient un de ces caractères spéciaux j'ai cette erreur:

Code :

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

1
2
3
 
ERROR : unknown procedure return value "
not well-formed (invalid token) at line 1, column 358, byte 358 at /usr/lib/perl5/site_perl/5.8.0/RPC/XML/Client.pm line 345"

La solution serait de transformer tous les caractères spéciaux en la lettre dont ils proviennent :
é,è,...->e
à->a
etc...

J'ai essayé mais je n'ai pas trouvé quel module en Perl pourrait faire ça. J'ai essayé à l'aide de Locale::Recode , mais je n'ai pas trouvé de bon codage ne sortie. Pour l'instant ma solution provisoire serait de convertir tout à la main, avec le code en dur :

Code :

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

1
2
3
4
5
6
 
#All "e"
    $text =~ tr/\xE8/e/;
    $text =~ tr/\xE9/e/;
    $text =~ tr/\xEA/e/;
    $text =~ tr/\xEB/e/;

Comme on est dans une requete XML RPC, je n'ai pas l'impression qu on puisse déclarer autre chose que la fonction principale. je ne trouve pasle codage en dur comme étant une bonne solution, voire meme une sale solution. Quelqu 'un aurait il une idée?

Merci d'avance
yanndan

**yanndan** · 10/02/2006, 14h53

Je poste ici une solution, ma fois relativement peu propre mais bon on fait ce qu on peut.
En espérant que ça pourra aider des gens.

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
            #"A"
            $text =~ tr/\xC0|\xC1|\xC2|\xC3|\xC4|\xC5/A/;
 
            #"AE"
            $text =~ tr/\xC6/AE/;
 
            #"C cedille
            $text =~ tr/\xC7/C/;
 
            #"E"
            $text =~ tr/\xC8|\xC9|\xCA|\xCB/E/;
 
            #"I"
            $text =~ tr/\xCC|\xCD|\xCE|\xCF/I/;
 
            #"O"
            $text =~ tr/\xD2|\xD3|\xD4|\xD5|\xD6/O/;
 
            #"U"
            $text =~ tr/\xD9|\xDA|\xDB|\xDC/U/;
 
            #All "a"
            $text =~ tr/\xE0|\xE1|\xE2|\xE3|\xE4|\xE5/a/;
 
            #"ae"
            $text =~ tr/\xE6/ae/;
 
            #"c cedille"
            $text =~ tr/\xE7/c/;
 
            #All "e"
            $text =~ tr/\xE8|\xE9|\xEA|\xEB/e/;
 
            #All "i"
            $text =~ tr/\xEC|\xED|\xEE|\xEF/i/;
 
            #All "o"
            $text =~ tr/\xF2|\xF3|\xF4|\xF5|\xF6/o/;
 
            #All "u"
            $text =~ tr/\xF9|\xFA|\xFB|\xFC/u/;

yanndan