Problème avec print Fout

Bonjour,

Je suis en train de faire un script en perl. Je ne sais pas comment faire pour créer plusieur fichier de sortie.

J'arrive a en créer un par un en faisant comme ceci :

Code:

---

print Fout "$test";

---

Ce que je voudrait faire, c'est que mon script crée automatiquement autant de fichier de sortie que de clé dans mon hash.
J'ai essayé de le mettre dans un foreach mais cela ne me crée qu'un seul fout.

J'aimerais avoir en sortie par exemple si j'ai 4 clés : 4 fichier de sortie. Mon probléme c'est que je ne sais pas a l'avance combien de clé je vais avoir.

Merci,

Bonjour,

Peut-être à l'aide du modile FileHandle
http://search.cpan.org/~rgarcia/perl.../FileHandle.pm

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

#!/usr/local/bin/perl   use strict; use warnings; use FileHandle;     my %Fichiers = ( "Fich1" => "blabla1", "Fich2" => "blabla2", );       foreach my $Fich (keys %Fichiers) { my $Out = FileHandle->new (">P:/Perl/".$Fich.".txt"); }

---

Ce script fonctionne mais l'ennui est que dès que tu sors de ta boucle tu perds la variable $Out. Peut-être en utilisant des références stockées dans un tableau? J'espère que cela te donner des idées pour progresser.


Jasmine,

Voila, j'ai trouvé quelque chose qui fonctionne pour écrire dans les fichiers une fois sorti de la boucle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

#!/usr/local/bin/perl   use strict; use warnings; use FileHandle;     my %Fichiers = ( Fich1 => "blabla1", Fich2 => "blabla2",   );     my %OutFile; foreach my $Fich (keys %Fichiers) { my $Out = FileHandle->new (">P:/Perl/".$Fich.".txt"); $OutFile{$Fich} = \$Out; }   print ${$OutFile{Fich1}} ("coucou");

---

Il existe peut-être plus simple et plus propre, mais je ne connais pas.
Ici, je mets une référence sur $Out qui est déjà une référence mais je n'arrive pas à faire autrement.


Jasmine,

Je viens d'essayé ton exemple, ca marche nickel quand on sait a l avance combien de clé on va avoir.
C'est ca mon problème, je ne sais pas a l'avance si j'aurai 3 ou 10 clés...
Il n'esxiste pas un moyen de faire par exemple Fout++ ou un truc du genre?
Ce qui voudrait dire que tant qu'il y a des clés, il me fait un fichier de sortie qui contient la valeur de cette clé.

Voila, ca marche, il me crée autant de fichier.txt que de clés. Il me met le nom de la clé comme nom de fichier. Maintenant j essaye qu'il me mette dans chaque fichier crée le chiffre associé a cette clé.

Merci,


Mimiche

J'ai un peu du mal à saisir ton problème du nombre de clés.
Cela ne convient-il pas si tu mets les clés dans un tableau indexé. Ensuite tu peux facilement en connaître le nombre et les rappeler via des boucles.

Code:

---

1 2 3 4 5 6 7 8 9

my @Cles; # liste contenant les clés my %OutFile; foreach my $Fich (keys %Fichiers) { my $Out = FileHandle->new (">P:/Perl/".$Fich.".txt"); push(@Cles, $Fich); $OutFile{$Fich} = \$Out; } print "Nombre de clés = ".@Cles."\n";

---

@Cles contient la liste de tes clés

Citation:

---

Voila, ca marche, il me crée autant de fichier.txt que de clés. Il me met le nom de la clé comme nom de fichier. Maintenant j essaye qu'il me mette dans chaque fichier crée le chiffre associé a cette clé.

---

Si ton programme ne se résume qu'à cela, il ne faut même pas créer le tableau %OutFile
Ceci suffit

Code:

---

1 2 3 4 5 6

foreach my $Fich (keys %Fichiers) { my $Out = FileHandle->new (">P:/Perl/".$Fich.".txt"); print $Out $Fichiers{$Fich}; # ... reste du traitement sur le fichier }

---

Peux tu traiter fichier par fichier sans devoir y faire appel en dehors du foreach?
Si tu expliquais un peu plus en détails ce que tu cherches à faire, je pourrais peut être t'aider plus ... parce que là c'est très floue.



Je ne connais pas du tout Fout++, je ne sais pas répondre à ta question.


Jasmine,


Bon courage,

Voici ce que j ai fais : Cette boucle me permet de créer en sortie autant de fichier que je n'ai de clé. Chaque fichier de sortie à le nom de la clé .txt

Code:

---

1 2 3 4 5 6

foreach my $Fich (keys %ifCount) { my $Out = FileHandle->new (">P:/Perl/".$Fich.".txt"); print $Out $ifCount{$Fich};   }

---

Ce que j'essaye ed faire maintenant c'est que dans chaque fichier crée, il me mette la valeur assicée a la clé.

Pour faire ca, j'ai remplacé $ifCount{$Fich} par $ifCount{$ValeurDeCle} mais ca ne fonctionne pas.

Il me met dans chaque fichier : HASH (...)


Merci,


Mimiche

François

Code:

---

1 2 3 4 5 6

foreach my $Fich (keys %ifCount) { my $Out = FileHandle->new (">P:/Perl/".$Fich.".txt"); print $Out $ifCount{$Fich};   }

---

$Fich est la clé de %ifCount
$ifCount{$Fich} est la valeur associée à $Fich


S'il te plait montre moi la structure de ton hash et les valeurs à écrire dans le fichier de sortie.


Jasmine,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

#!/usr/local/bin/perl   use strict; use warnings; use FileHandle;   my %ifCount = ( cle1 => "valeur1", cle2 => "valeur2", cle3 => "valeur3",   );   foreach my $Fich (keys %ifCount) { my $Out = FileHandle->new (">P:/Perl/".$Fich.".txt"); print $Out "CLE = ".$Fich."\n"; print $Out "VALEUR = ".$ifCount{$Fich}."\n"; }

---

Est-ce que tu comprends comment cela fonctionne?


Jasmine,

Voila ca marche .


Merci,


Mimiche

Tu dois cocher la case afin de signaler que le problème est résolu.

Jasmine,