• [^] # Re: po

    Posté par . En réponse au message XML-Parser. Évalué à 2. Dernière modification le 13 avril 2015 à 21:59.

    Salut Nicola ,

    juste pour te dire que j'ai reussi voila le code

    my $twig2= XML::Twig->new( 
 twig_handlers => { 
 'Parameter' => sub { 
 # use 'fault' if name is not defined; Operator '//' is available since perl 5.10.1
 my $attr_name = $_->{'att'}->{'value'} // 'fault';
 print $FhResult $attr_name . ",";
 },
 },
);