Discussion :

[choubiroute]

Bonjour à tous,

Je souhaite stocker un handle de fichier dans un tableau de hashage, puis réutiliser ce handle à partir du hashage pour écrire dans le fichier :

Code :

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

1
2
3
4
5
6
7
 
open( my $FIC, ">>", $monFichier )
  or die "Impossible de créer le fichier $monFichier :$ERRNO";
 
$monHashage{MACLEF}{HANDLE} = $FIC;
 
print ${$monHashage{MACLEF}{HANDLE}}, 'BLAH BLAH';

Comme vous vous en doutez, cela ne fonctionne pas... Comment dois-je faire?

Petite précision : je souhaite untiliser la syntaxe "use strict"

D'avance merci...

[Woufeil]

Salut,

Perl n'aime pas trop les handles indicés. Mais tu peux contourner le problème : la fonction print peut prendre en paramètre un bloc qui retourne un handle de fichier. Tu n'as qu'à donc définir un bloc qui retourne ton handle !
Par exemple :

Code :

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

1
2
3
open (my $fic, '>', 'test.txt') or die "Erreur E/S : $!";
my $h = {MACLEF => {HANDLE => $fic}};
print {$h->{MACLEF}{HANDLE}} "OK";

Fonctionnera très bien

[choubiroute]

Merci !