Discussion :

[devdev2003]

J'ai un fichier XML :

<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 :

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 ?

[Jedai]

est il possible de faire ça en perl ?

Oui, par exemple avec XML::Twig.

--
Jedaï

[devdev2003]

Oui, par exemple avec XML::Twig.

--
Jedaï

Un exemple ?

Merci

[Jedai]

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ï

[PerlPicker]

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 :

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

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!