• [^] # Re: perlmonks says

    Posté par . En réponse au message faire fonctioner Code sur plusieurs Fichiers se trouvant tous dans un dossier. Évalué à 0.

    Salut Warwick, malheureusement cela ne fonctione pas je pense qu'il faut que je vous persente a quoi ressemble mon code-perl qui est dans un dossier avec les fichiers-XML comment faire a ce que ce code fonctionne automatiquement sur les fichiers-XML parceque j'en ait plusieurs Milliers de fichiers-xml

    #!/usr/bin/perl 
use strict;
use warnings;
use XML::Twig; 
use Text::CSV; 
my @files = @ARGV or die 'No files'; 
my $FileResult = $ARGV[1] || 'result.csv'; 
#Ausgabedatei wird geöffnet und geprüft
open( my $FhResult, '>', $FileResult ) or die("Unable to open file $FileResult\n$!");
my $twig2= XML::Twig->new( 
 twig_handlers => { 
 'Parameter' => sub { 
 my $attr_value = $_->{'att'}->{'value'} // 'fault'; 
 print $FhResult $attr_value . ",";
 },
 },
);
print $FhResult( (split('_', "\n$file2",2))[0] . ',' ); 
$twig2->parsefile($file2);
close $FhResult;