• [^] # Re: po

    Posté par . En réponse au message XML-Parser. Évalué à 2.

    Avec XML::Twig, je ferais comme ça :

    use strict;
use warnings;
use XML::Twig;
my $twig= XML::Twig->new(
 twig_handlers => { 'Parameter' => sub { ,ドル = ",";
 print
 $_->{'att'}->{'name'},$_->{'att'}->{'value'} . ,ドル
 }
 }
 );
$twig->parsefile('test.xml');

    ce qui donne : prim,2,second,3,copy,4,force,1,always,0,type,5,memory,allow,

    Ne resterait plus qu'à nettoyer la virgule finale.

    Après, comme toujours en Perl, il y a d'autres manières de faire.