• [^] # Re: lien entre value et name ?

    Posté par . En réponse au message Ajouter une condition if. Évalué à -7.

    Voici un morceau de mon code mais je ne comprend pas pourquoi a la derniere ligne il me revoi toujours l'erreur suivante la ligne 37 est la derniere de ce morceau de code.

    C:\Users\Desktop\probe>perl parser.pl default_sysvalue.xml *.xml
Couldn't open ..\InputData\DEFAULT\default_sysvalue.xml:
No such file or directory at parser.pl line 37.
 at parser.pl line 37.
C:\Users\Desktop\probe>
    #!/usr/local/bin/perl
 use Modern::Perl;
 use autodie;
 use XML::Twig;
 use Data::Dumper;
 use File::Basename;
 # parametrage externe
 my $arg_file = shift @ARGV;
 my $sys_file = '..\InputData\DEFAULT\src_sys.xml';
 my @files = glob('..\InputData\*.xml');
 @files = grep { $_ ne $arg_file } @files if defined $arg_file;
 my $result_file = '..\CSV\DATA.csv';
 # On recupere le liste des noms d'attributs
 my @sys_names;
 my $sys_twig = XML::Twig->new( twig_handlers => { 'Parameter' => sub { push @sys_names, $_->{'att'}->{'name'}; }});
 $sys_twig->parsefile($sys_file); # a ce niveau est le probleme