Re: loop

regarde ce que je possede ilme signale une erreur a la ligne 12(a partir de for ) je ne comprend pas cette erreur

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;

voila l'erreur que cela me notifie

mismatched tag at line 12, column 5, byte 629 at C:/strawberry/perl/site/lib/XML
/Parser.pm line 187.
 at new.pl line 24.
 at new.pl line 24.
C:\Users\IBM_ADMIN\Documents>