• [^] # Re: comme avant

    Posté par . En réponse au message ouvrir, fermer et créer les fichiers avec chemin relatif. Évalué à -6.

    comme toujours j'ai une question concernant des fichiers que j'aimerai que mon code produise a la sortie voici un morceau de la sortie. peut etre quelqu'un pourrai me donner un coup de main

     my @outputFHs;
 my $outputFHs;
 for my $k (keys %{$data}) {
 open $outputFHs[$_], ">", "$_.csv";
 print $outputFHs[$_] "----$k----\n"; # le nom que porte mon fichier 
 print $outputFHs[$_] "$k: $param->{$k}\n"; # ecrit le nom dans le fichier et la valeur du parametre
 for my $i (0.. $#{$data->{$k}}) {
 if ($param->{$k} ne $data->{$k}->[$i]->[1]) {
 print $outputFHs[$_] "$data->{$k}->[$i]->[0]: $data->{$k}->[$i]->[1]\n"; # noms des data et leurs valeurs
 }
 }