Convertir fichier XML -> CSV

J'ai un fichier XML :

Citation:

---

<NODE>

<DATA>
<HEADER DATE="2007/09/13 15:17:39" ID="1000" />
<DATA1>
<DATA2 DEST="DEST1" SOURCE="SOURCE1"></DATA2>
</DATA1>
</DATA>


<DATA>
<HEADER DATE="2007/09/13 15:18:39" ID="2000" />
<DATA1>
<DATA2 DEST="DEST2" SOURCE="SOURCE2"></DATA2>
</DATA1>
</DATA>


<DATA>
<HEADER DATE="2007/09/13 15:19:40" ID="3000" />
</DATA>

<DATA>
<HEADER DATE="2007/09/13 15:19:42" ID="4000" />
</DATA>

<DATA>
<HEADER DEST="DEST4" SOURCE="SOURCE4" />
</DATA>

<DATA>
<HEADER DEST="DEST5" SOURCE="SOURCE5" />
</DATA>

</NODE>

---

Je voudrais convertir ce fichier XML en CSV :

Citation:

---

2007/09/13 15:17:39 | 1000 | DEST1 | SOURCE1

2007/09/13 15:18:39 | 2000 | DEST2 | SOURCE2

2007/09/13 15:19:40 | 3000 | |

2007/09/13 15:19:42 | 4000 | |

| | DEST4 | SOURCE4

| | DEST5 | SOURCE5

---

est il possible de faire ça en perl ?

Citation:

---

Envoyé par devdev2003

est il possible de faire ça en perl ?

---

Oui, par exemple avec XML::Twig.

--
Jedaï

Citation:

---

Envoyé par Jedai

Oui, par exemple avec XML::Twig.

--
Jedaï

---

Un exemple ?

Merci

Citation:

---

Envoyé par devdev2003

Un exemple ?

---

Une simple recherche sur Google te donnera un lien vers la page d'accueil de xmltwig, sur laquelle on trouve un tutorial. Un petit effort ?

--
Jedaï

Maître Jedai fait bien de t'envoyer vers Twig qui est la façon propre de lire des XML.
Tu devrais aussi utiliser un module pour écrire le CVS ce qui n'est pas si simple à faire proprement.

Maintenant, si ton problème est juste de reformatter une log, Perl a été écrit pour ça initialement et pour ton fichier tu peux faire qque chose comme:

Code:

---

1 2 3 4 5 6 7 8 9

$/="</DATA>";   while(<>){ my ($date) = (m/\bDATE="(.*?)"/); my ($id) = (m/\bID="(.*?)"/); my ($dest) = (m/\bDEST="(.*?)"/); my ($source) = (m/\bSOURCE="(.*?)"/); print join(" | ",($date,$id,$dest,$source)),"\n" if (m/<DATA>/); }

---

Ca va bien marcher parce que tes noms de champs ne sont pas ambiguës, tu n'as à priori pas de problème d'encoding à gérer, etc.
C'est moins générique que Twig mais ça s'écrit en 2 minutes!