[Perl] Modifier balise XML [Fermé]

Signaler
Messages postés
50
Date d'inscription
mercredi 25 juin 2008
Statut
Membre
Dernière intervention
28 octobre 2009
-
Bonjour,

J'ai commencé le Perl hier et depuis quelques heures là je bloque sur un problème...

Je souhaite modifier la valeur d'une balise d'un fichier XML. J'ai trouvé de quoi trouver la balise ( ici date), la modifier mais je n'arrive pas à trouver de quoi mettre à jour le fichier XML correspondant.

Voilà mon code :

    use XML::Twig;
    use Data::Dumper;

    my $twig = XML::Twig->new (
    twig_roots => {date => \&editDate,},
    twig_print_outside_roots => 1, )
    ->parsefile( 'configuration.xml');



$twig->flush;

sub editDate {
    my ($twig, $date) = @_;
    
    my $text = $date->text ();
    $text = "demain";
    $date->set_text ($text);
    $date->print (); # mettre à jour le fichier
    
    $twig->purge;
}


Pour le moment j'ai fait $date->print(); mais je voudrais plutot mettre à jour le fichier XML.

Merci pour vos idées,

Choup'