• [^] # Re: loop

    Posté par . En réponse au message Parsage sur plusieur fichier. Évalué à 1.

    Salut Neox je crois qu'on ne se comprend et meme avec cette petite erreur sur mon code ca fonctionait. mon probleme est qu'il me donne les attibuts value des fichiers que j'entre
    car egal ne nombre de Fichiers que j'entre il me retournera que les attributs value mais
    j'aimerai que pour le fichiers Nr.0 qu'il me retourne les Attributs name et le reste de fichiers les attributs value 

    use strict;
use warnings;
use XML::Twig;
my @files = @ARGV or die 'No files';
my $FileResult = 'result.txt';
open( my $FhResult, '>', $FileResult )
 or die "Unable to open file $FileResult\n$!";
for my $file (@files) {
 my $twig1 = XML::Twig->new(
 twig_handlers => {
 'Parameter' => sub {
 my $attr_value = $_->{'att'}->{'value'} || 'fault';
 print $FhResult $attr_value . ",";
 },
 },
 );
 print $FhResult ( split( '_', $file, 2 ) )[0] . ',';
 $twig1->parsefile($file);
}
close $FhResult;