Re: Il manque des trucs

Anaseto,
c'est comme ca que le code est c'est un bout de code mais j'ai complete la fin du code
le probleme est que il me signale deja au paravant une erreur au niveau de la ligne 152 et 154 elle et marque

Use of uninitialized value in concatenation <.> or string at parvsde.pl line 152
Use of uninitialized value in string ne at parvsde.pl line 154

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" ) ) {
 print $Fhhtml "\n<table>\n<tr><th>$k:</th><th>$param->{$k}</th></tr>\n"; #line 152
 for my $i ( 0 .. $#{ $data->{$k} } ) {
 if ( $param->{$k} ne $data->{$k}->[$i]->[1] ) { #line 154
 print $Fhhtml "<tr><td>$data->{$k}->[$i]->[0]</td><td>$data->{$k}->[$i]->[1]</td></tr>\n"; 
 }
 }
 }
 else {
 warn "FEHLER ($!) bei Datei $k.html";
 }
}