transformation fichier xml en plusieurs en perl

**knebhi** · 10/04/2009, 12h46

Bonjour,

Bonjour,

J'ai un fichier xml qui se présente globalement sous cette forme :

Code xml :

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
<xml>
<header> <!-- information header--></header>
 
<text>
<body>
<div type="part">
<div type="article>
<!-- CONTENU -->
</div>
<div type="article>
<!-- CONTENU -->
</div>
</div>
<div type="part">
<div type="article>
<!-- CONTENU -->
</div>
<div type="article>
</div>
</div>
 
</body>
 
</text>
 
</xml>

J'ai un fichier xml qui se compose de plusieurs <div type="part"> qui elle-même comportent plusieurs <div type="article>.

Ma question est de savoir comment je peux transformer ce fichier xml pour avoir un fichier pour chaque <div type="article> mais en reprenant le même header.
Exemple j'aurai plusieurs fichiers de ce type :

Code xml :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
<xml>
<header><!-- information header --> </header>
 
<text>
<body>
 
<div type="article">
<!-- contenu -->
</div>
</body>
 
</text>
</xml>

Au final je souhaite obtenir autant de fichiers xml que j'ai de <div type="article> tout en gardant le même header.

Je recherche donc la méthode en perl pour effectuer cette manipulation.

J'espère que c'est clair merci

**djibril** · 10/04/2009, 12h54

Utilise le module XML::Twig pour parser ton fichier xml et XML::Writer pour en créer à volonté.

http://www.developpez.net/forums/d78...documents-xml/

**knebhi** · 10/04/2009, 13h57

Envoyé par djibril

Utilise le module XML::Twig pour parser ton fichier xml et XML::Writer pour en créer à volonté.

http://www.developpez.net/forums/d78...documents-xml/

je vais y jeter un oeil merci

**knebhi** · 20/04/2009, 11h23

Je me suis documenté et j'avoue ne pas tout comprendre sur les modules ne trouvant pas vraiment de documentation facilement compréhensible.

Si quelqu'un pouvait me donner un coup de pouce pour commencer...

**Jedai** · 20/04/2009, 20h37

Envoyé par knebhi

Je me suis documenté et j'avoue ne pas tout comprendre sur les modules ne trouvant pas vraiment de documentation facilement compréhensible.

Si quelqu'un pouvait me donner un coup de pouce pour commencer...

Le message pointé par Djibril contient un lien vers un excellent tutorial pour XML::Twig.

--
Jedaï

**knebhi** · 21/04/2009, 16h51

j'ai lu le tuto de xml:twig et j'ai pondu un début de programme
je cherche en fait a parser tout les <div type="article">
la structure est du fichier xml est détaillé sur le premier post.

ce programme m'affiche l'ensemble du texte mais je souhaite juste avoir le texte des <div type="article">

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
#!/bin/perl -w
 
use strict;
use XML::Twig;
 
 
my $twig= new XML::Twig();                              # create the twig
 
if( my $file= $ARGV[0]) { $twig->parsefile( $file); }   # build it
else                    { $twig->parse( \*STDIN);   }
 
my $module_list= $twig->root;                           # grab the root
my @modules= $module_list->children;                    # get its children
 
 
 
foreach my $module ( @modules)
  { 
	my $e_div = $module->first_child('div');
	my $div = $module->text;
 
 
	print $div;
 
  }

transformation fichier xml en plusieurs en perl

Modules Perl

Vue hybride

Discussions similaires

Partager

Partager