URL: https://linuxfr.org/forums/programmation-perl/posts/une-erreur-donc-je-ne-comprend-pas Title: Une erreur donc je ne comprend pas Authors: Henri Date: 2015年12月12日T09:08:50+01:00 License: CC By-SA Tags: Score: -3 Salut a tous j'ai encore une erreur que mon code me renvoit et je ne comprend pas la provenance etant donne que j'ai initialise le variable. Use of uninitialized value in string ne at parvsde.pl line 154. Use of uninitialized value in string ne at parvsde.pl line 154. Use of uninitialized value in string ne at parvsde.pl line 154. C:\Users\Desktop\Compare\Perl> ```ruby my ($errcode, $errtext, $param, $data); ($errcode, $errtext, $param) = parse_paramfile({filename =>$file1}); if ($errcode) { print "ERROR: $errtext !"; exit(1); } ($errcode, $errtext, $data) = parse_datafile({filename =>$file2}); if ($errcode) { print "ERROR: $errtext !"; exit(1); } # use Data::Dumper; # print Dumper($param), "\n\n", Dumper($data), "\n"; my $Fhhtml; for my $k ( keys %{$data} ) { if ( open( $Fhhtml, '>', "../WEBS/HTML/$k.csv" ) ) { $k: $param->{$k}\n"; for my $i ( 0 .. $#{ $data->{$k} } ) { if ( $param->{$k} ne $data->{$k}->[$i]->[1] ) { # voici la ligne 154 de mon code print $Fhhtml "$data->{$k}->[$i]->[0]$data->{$k}->[$i]->[1]\n"; } ```