option CDATA sur XML

Version imprimable

bonjour,
j'ai un fichier xml en entrée contenant un CDATA
Code:

1 2 3 <object><![CDATA[ Objet de l'email 1 ]]></object>
je le charge via
Code:

1 2 3 4 5 6 7 # créer un objet ProtocolEncoding => 'UTF-8' et pas 'ISO-8859-1' my($xml)=new XML::Simple (ForceArray=>1,NoSort=>1,SuppressEmpty => undef, RootName=>'emails', XMLDecl => '<?xml version="1.0" encoding="UTF-8" ?> '); # lire le fichier XML my $data=$xml->XMLin($ficDocXML);
et lorsque que je le réécris avec

Code:

$xml->XMLout($data, OutputFile => $ficOutXML);

il a perdu le formatage CDATA !!

une idée?

merci

04/06/2007, 15h01
Jedai

Comme l'indique son nom, XML::Simple est fait pour les documents XML simples (les fichiers de configuration par exemple). Et un document comportant des sections CDATA n'est pas suffisamment simple pour lui. Parmi les alternatives, tu as les modules de XML::LibXML ou de XML::Parser, avec diverses alternatives utilisant des interfaces SAX ou DOM, "Tree" ainsi qu'XPath. XML::Twig est également un excellent module pour traiter du XML, avec une approche originale et très "Perl".
Si tu veux des conseils plus précis, donne nous plus de détails sur ce que tu veux faire avec ton XML (et quelle taille il peut atteindre).

--
Jedaï

merci a toi Jedai;

le principe est le suivant:
je reçois un fichier xml en entrée qui est une liste de mails
suivant le "status" (s'il est a 0) je dois envoyer le mail
si j'ai une erreur :
- Mise à jour du statut pour chaque e-mail (balise <status>):
0 => Non traité (statut initial, non traité par le programme)
1 => Non envoyé (suite à au serveur smtp indisponible) avec erreur écrite dans la balise <message> (avec un CDATA).
2 => Non envoyé (suite à une erreur renvoyé par le serveur smtp) avec erreur écrite dans la balise <message> (avec un CDATA).
3 => Non envoyé (suite à une erreur applicative, par exemple absence d'une pièce jointe,
d'un expéditeur ou d'un destinataire) avec erreur écrite dans la balise <message> (avec un CDATA).
4 => Envoyé (Réponse OK du serveur smtp)

il faut donc que je "ressorte" le fichier après avoir mis a jour la balise status et message si nécessaire.

ci joint une partie du xml a traiter
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 <?xml version="1.0" encoding="UTF-8"?> <emails> <mail> <nid>0000145823</nid> <from>regis.xxx@xx.com</from> <to>antoine.xx@xx.com</to> <cc>serge.xx@xx.com</cc> <object><![CDATA[Objet de l'email 1]]></object> <body><![CDATA[Monsieur, Madame, Veuillez trouver en pièce jointe votre document 1 cordialement, Régis xx ]]></body> <files> <file>C:/SQL.pdf</file> <file>C:/recipients.xml</file> </files> <message></message> <status>4</status> </mail> <mail> <nid>0000145824</nid> <from>regis.xx@xx.com</from> <to>antoine.xx@xx.com</to> <cc>serge.xx@xx.com</cc> <object><![CDATA[Objet de l'email 2]]></object> <body><![CDATA[Monsieur, Madame, Veuillez trouver en pièce jointe votre document 2 cordialement, Régis xx ]]></body> <files> <file>C:/SQL.pdf</file> <file>C:/recipients.xml</file> </files> <message></message> <status>0</status> </mail> </emails>
Voilà!

04/06/2007, 21h27
Jedai

D'accord, n'importe quel type de module XML pourrait donc convenir. Comme tu ne m'as pas indiqué la taille, je vais assumer le pire et supposer que le XML peut-être très gros. Dans ce cas tu peux utiliser XML::Parser ou XML::Twig (chaudement recommandé, tu trouveras un tutorial dans la page dont je t'ai mis le lien) qui sont bien adaptés à une lecture et modification "par bout" comme ici.

--
Jedaï
05/06/2007, 08h41
serge0934

merci beaucoup Jedai :king:

PS: petit commentaire:
vous avez "délesté" ma discussion de Langage a Module => Ok pas de pb; mais il serait bien que l'on recoive un petit mail pour nous avertir car ce matin je me demandais quel titre j'avais mis ou si j'avais bu....:mouarf:
05/06/2007, 16h00
Jedai

Citation:

Envoyé par serge0934

PS: petit commentaire:
vous avez "délesté" ma discussion de Langage a Module => Ok pas de pb; mais il serait bien que l'on recoive un petit mail pour nous avertir car ce matin je me demandais quel titre j'avais mis ou si j'avais bu....:mouarf:

Je ne crois pas avoir fait ça... Par ailleurs si je l'avais fait tu aurais dû recevoir un MP en tant que créateur de la discussion concernée. Je n'ai eu aucun autre retour concernant un éventuel problème de cet ordre : tu es sûr de toi ?

--
Jedaï
05/06/2007, 16h26
serge0934

a priori oui...:roll:

mais comme je t'ai dis c'est pas important..

A+
et encore merci
12/09/2008, 11h08
gint

Hello,

Je n'ai pas complètement lu le sujet mais il semblerait que tu aies des problèmes avec CDATA et XML::Simple . J'étais confronté au même problème et voici mes conclusions.

A la lecture du fichier XML en entrée, XML::Simple semble faire sauter implacablement les CDATA.
On peut alors se dire qu'on les remettra manuellement juste avant la sortie par une commande du style

Code:

$hash->{Balise} = "<![DATA[".$hash->{Balise}."]]>";

mais, que neni, XML::Simple remplace les chevrons par leur encodage HTML ( < et > ).
La solution est alors d'utiliser l'option NoEscape (cf CPAN) qui permet d'éviter ces remplacements automatiques et laisse la liberté au développeur de gérer la validité du contenu des feuilles XML.

J'espère que cela te sera utile ou, au moins, que ca le sera pour quelqu'un confronté au même problème.

Gint.