• [^] # Re: au hasard en reprenant les posts precedents, on trouve ...

    Posté par . En réponse au message sortie sur plusieurs fichiers. Évalué à -5.

    Merci bien de votre aide:
    la solution 

    for my $k ( keys %{$data} ) {
 if ( open( $fhout, '>', "$k.csv" ) ) {
 print $fhout "----$k----\n"; 
 print $fhout "$k: $param->{$k}\n"; 
 for my $i ( 0 .. $#{ $data->{$k} } ) {
 if ( $param->{$k} ne $data->{$k}->[$i]->[1] ) {
 print $fhout "$data->{$k}->[$i]->[0]: $data->{$k}->[$i]->[1]\n"; 
 }
 }
 }
 else {
 warn "FEHLER ($!) bei Datei $k.csv";
 }
}