Salut a tous,

Jve essayer d'etre bref
voila g un script Perl et un fichier xml. J'utilise Twig un module xml pour le PERl et je voudrait recrire dans le fichier xml que je parcours ac TWIG

Probleme : j'arrive a lire le fichier et l'afficher sur mon Xterm mais vu que je suis qu'un novice en Perl, je maitrise po encore tro les fichiers alors si qqun pe m'aider maki.

Le but est en fait de lire le fichier et dy rajouter des balises xml sans refaire la roue de recherche insertion etc ...(en utilisant TWIG)



Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use XML::Twig;
 
my $twig= new XML::Twig;
#open(RES,'>template.xml') or die 'Erreur d\'ecrire, Verifier vos droits en lecture sur le repertoire courant';
$twig->parsefile( "template.xml");    # build the twig
my $root= $twig->root;           # get the root of the twig (template)   
 
 
   my $title=sprintf("how to");
   my $eblg= new XML::Twig::Elt( 'title',$title);   # create the element
  $eblg->paste('first_child', $root);
 
$twig->print;                    # note that we lose the extra returns