Re: po

salut j'ai ecrit le code de la maniere suivante twig1 qui nous permet le parser du fichier1 et retourne juste les Atributs name et twig2 qui permet le parser du fichier2 et retourne jsute le values, maintenant j'aimerai que dans le twig2 on ecrive une Loop qui permettra d'ecrire "fault" dans le cas ou il ne trouverai pas de corespondance value avec le Fichier2 a defaut il me donne la value correspondante.

use strict;
use warnings;
use XML::Twig; 
my $FileResult = 'result.txt';
open( my $FhResult, '>', $FileResult ) or die("Unable to open file $FileResult\n$!");
my $twig1= XML::Twig->new( 
 twig_handlers => { 'Parameter' => sub { ,ドル = ","; 
 print $FhResult $_->{'att'}->{'name'}. ,ドル 
 }
 }
 );
print $FhResult( (split('_', "d100spuptl25e0_datei1.xml",2))[0] . ',' ); 
$twig1->parsefile("d100spuptl25e0_datei1.xml");
my $twig2= XML::Twig->new(
 twig_handlers => { 'Parameter' => sub { ,ドル = ",";
 print $FhResult $_->{'att'}->{'value'} . ,ドル
 }
 }
 );
print $FhResult( (split('_', "\ndefault_datei2.xml",2))[0] . ',' );
$twig2->parsefile('default_datei2.xml');