PERL : syntaxe tableau de handle fichier Résolu/Fermé

Question

Bonjour, 
Configuration: Windows XP / Firefox 7.0.1
Je n'ai que peu d'expérience de PERL, et je bute sur le problème suivant :
Je veux ouvrir plusieurs fichiers et récupérer les handle's dans un tableau.
Ensuite, j'ai un traitement qui va, selon une valeur contextuelle, écrire en utilisant l'un des handle's de fichier, d'où le tableau.

J'arrive à le faire, mais je suis obligé de passer par une variable intermédiaire, quelqu'un peut-t-il me dire pourquoi la façon dont j'appelle la fonction print avec un indice du tableau ne marche pas ?
Voici le code qui pose problème (il s'agit d'une extraction, vous l'aurez compris :
use strict;
use warnings;
use Symbol;
# programme perl
# Problème de syntaxe du print dans un fichier avec un handle de fichier dans un tableau
# Note c'est dans un tableau parce que dans la vie réelle il y a besoin de plusieurs handle
# Mais on n'en met qu'un pour simplifier
    my $f = "toto.txt";

    my @fhs; # tableau de handle's
    open(my $fh, '>', $f) or die "Cannot open $f: $!";
    push @fhs, $fh; # place le handdle dans le tableau 
#    print $fhs[0] . "
"; # on peut vérifier qu'il y a bien une valeur
    # Les 2 lignes ci-dessous marchent (on peut vérifier que le fichier toto.txt contient bien le texte
    my $fh2 = $fhs[0];
    print ($fh2 "bonjour les amis fh2 ");
    # ******* La ligne ci-dessous ne marche pas  (indique : "Not a CODE reference at test01.pl line 18.")
#    print ($fhs[0] "bonjour les amis KO ");
    # La ligne ci-dessous marche aussi alors qu'on appelle "de la même façon" que pour le print
    close $fhs[0];
    print ($fh2 "tentative de print apres le close provoque bien une erreur");
 #   print "fini : qui peut m'expliquer ?";

lami20j · Answer

Salut, 

# Mais on n'en met qu'un pour simplifier
Justement comme tu veux utiliser un tableau des handle alors simplifier veut dire que tu dois donner un exemple avec deux.
Avec un, pas besoin de tableau ;-)

Peux-tu donner tout le code? 

lami20j

lami20j · Answer

Bon, pas vraiment besoin de ton code. Si j'ai bien compris tu veux quelque chose comme ça.
Il faut utiliser un bloc où on veut placer un descripteur.

lami20j@debian-acer:~/perl$ cat toto.txt 
lami20j@debian-acer:~/perl$ cat titi.txt 
lami20j@debian-acer:~/perl$ cat 2handle.pl 
#!/usr/bin/perl
use strict;use warnings;

open my $f1,">toto.txt" or die "E/S :  $!
";
open my $f2, ">titi.txt" or die "E/S : $!
";

push my @fhs,($f1,$f2);

print { $fhs[0] } "salut toto
";
close $fhs[0] ;
print { $fhs[1] } "salut titi
";
close $fhs[1];

__END__

lami20j@debian-acer:~/perl$ perl -cx 2handle.pl 
2handle.pl syntax OK
lami20j@debian-acer:~/perl$ perl 2handle.pl 
lami20j@debian-acer:~/perl$ cat toto.txt 
salut toto
lami20j@debian-acer:~/perl$ cat titi.txt 
salut titi

Ce bloc peut contenir aussi une expression

lami20j@debian-acer:~/perl$ cat toto.txt 
lami20j@debian-acer:~/perl$ cat titi.txt 
lami20j@debian-acer:~/perl$ cat 2handle_choix.pl 
#!/usr/bin/perl
use strict;use warnings;

open my $f1,">toto.txt" or die "E/S :  $!
";
open my $f2, ">titi.txt" or die "E/S : $!
";

push my @fhs,($f1,$f2);

print "Quel descripteur utilisé 1 ou 2 ? ";
chomp (my $choix=<STDIN>);

print { $choix==1?$fhs[0] : $fhs[1] } "salut
";
close $fhs[0] ;
close $fhs[1];

__END__

lami20j@debian-acer:~/perl$ perl -cx 2handle_choix.pl 
2handle_choix.pl syntax OK
lami20j@debian-acer:~/perl$ perl 2handle_choix.pl 
Quel descripteur utilisé 1 ou 2 ? 2
lami20j@debian-acer:~/perl$ cat toto.txt 
lami20j@debian-acer:~/perl$ cat titi.txt 
salut

PERL : syntaxe tableau de handle fichier

2 réponses

Discussions similaires