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

Version imprimable

08/02/2006, 10h37
yanndan

Perl, XML RPC et caractères spéciaux.
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:

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:

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

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:

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

10/02/2006, 15h31
Jedai

Attention : le "|" n'est pas nécessaire, et représente même une erreur dans un "tr///".

--
Jedaï
14/02/2006, 11h23
yanndan

merci.
Je ne savais pas.

merci encore.
yanndan
14/02/2006, 11h36
GLDavid

Petit tag résolu en cliquant sur le bouton :resolu:
Merci d'avance.

@++