Discussion :

[radahm]

Bonjour,

J'essaie de dispacher le contenu d'un fichier en plusieurs fichiers,
Pour cela, je veux créer une table de hachage avec un code connu comme clé et un pointeur sur le fichier pour la valeur.
ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
(open OUTPUT, ">$FILE_NAME_CIDE1"))

clé : CODE1 (que je connais)
valeur : OUTPUT

Pourriez-vous me dire comment faire?

Merci,

[Jasmine80]

Quelque chose comme ça te conviendrait-il?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/local/bin/perl
 
use strict;
use warnings;
 
 
# fichier d'entrée
open my $fh, '<', 'chemin/fichier' or die $!;
 
 
# liste des fichiers de sortie
my %hash_file;
$hash_file{CODE1} = 'chemin/fichier11';
$hash_file{CODE2} = 'chemin/fichier12';
$hash_file{CODE3} = 'chemin/fichier13';
$hash_file{CODE4} = 'chemin/fichier14';
 
 
 
while ( my $line = <$fh>){
 
	if ( ... ){
		open my $fh_out, '>', $hash_file{CODE1} or die $!;
		print $fh_out $line;
		close $fh_out;
	}
 
}
 
close $fh;

[Philou67430]

Bonjour radahm,

Je vais supposer que tu souhaites stocker des filehandle dans des variables.

Il existe deux manières de faire (au moins) :

• La première est d'utiliser les file handle sous forme de barewords (ces mots en majuscules sans sygille, qui sont aussi appelés typeglob). Pour cela tu peux utiliser la syntaxe :
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  $filehandles{CODE1} = *OUTPUT;

• L'autre manière, plus "propre" (évite les ambiguités du langage liées à l'usage des barewords) est de créer les filehandles dans des variables.
  Exemples :
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  open my $output, ">", $FILE_NAME_CODE1;
  $filehandles{CODE1} = $output;

  ou encore directement :
  

  Code :

  Sélectionner tout - Visualiser dans une fenêtre à part

  1
  2
  3
  open $filehandles{CODE1}, ">", $FILE_NAME_CODE1;
  ...
  print { $filehandles{CODE1} } "my output";

Cependant, j'attire ton attention sur deux points dans l'usage d'un filehandle contenu dans un hash.

• Le premier sur le open : le contenu du scalar du filehandle doit être "undef" avant l'appel du open (donc par exemple, la clé doit être inexistante, ou la valeur égale à undef). C'est impératif pour respecter cette règle du manuel de open :
  

  If FILEHANDLE is an undefined scalar variable (or array or hash element) the variable is assigned a reference to a new anonymous filehandle, otherwise if FILEHANDLE is an expression, its value is used as the name of the real filehandle wanted. (This is considered a symbolic reference, so "use strict 'refs'" should not be in effect.)

• La deuxième concerne le print. Lorsque le filehandle de print n'est pas d'une forme simple (bareword ou scalaire), il faut impérativement le mettre dans un bloc afin de respecter cette règle du manuel (c'est la raison des { } autour du filehandle)
  

  Note that if you're storing FILEHANDLEs in an array, or if you're using any other expression more complex than a scalar variable to retrieve it, you will have to use a block returning the filehandle value instead:
  
  print { $files[$i] } "stuff\n";
  print { $OK ? STDOUT : STDERR } "stuff\n";

[radahm]

Bonjour,
Merci pour vos reponses,

J'ai utilisé la solution suivante:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
open my $output, ">", $FILE_NAME_CODE1;
$filehandles{CODE1} = $output;

lorsque j'affiche le contenu de la table de hachage, j'ai la meme valeur pour tous les clé (la valeur affichée est : GLOB(0x21f1abc))
Pourriez-vous svp m'expliquer comment c possible?

Merci,

[Philou67430]

Mmm ?!
La référence hexadécimale dans le GLOB est-elle vraiment identique ?
Les fichiers ouverts sont-ils bien différents ?

[radahm]

oups, j'ai trouvé...
je declarais ma variable $output, une seule fois au début et j'utilisais plusieurs fois dans la boucle While.
mnt, j'ai des valeurs differentes en fonction de la clé,

Merci bcp,