PERL : syntaxe tableau de handle fichier
Résolu/Fermé
java4ever
-
13 nov. 2011 à 11:00
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 13 nov. 2011 à 21:02
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 13 nov. 2011 à 21:02
A voir également:
- PERL : syntaxe tableau de handle fichier
- Fichier rar - Guide
- Tableau croisé dynamique - Guide
- Fichier host - Guide
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
- Fichier iso - Guide
2 réponses
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
13 nov. 2011 à 20:30
13 nov. 2011 à 20:30
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.
Ce bloc peut contenir aussi une expression
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 : $!\n";
open my $f2, ">titi.txt" or die "E/S : $!\n";
push my @fhs,($f1,$f2);
print { $fhs[0] } "salut toto\n";
close $fhs[0] ;
print { $fhs[1] } "salut titi\n";
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 : $!\n";
open my $f2, ">titi.txt" or die "E/S : $!\n";
push my @fhs,($f1,$f2);
print "Quel descripteur utilisé 1 ou 2 ? ";
chomp (my $choix=<STDIN>);
print { $choix==1?$fhs[0] : $fhs[1] } "salut\n";
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
lami20j
Messages postés
21331
Date d'inscription
jeudi 4 novembre 2004
Statut
Modérateur, Contributeur sécurité
Dernière intervention
30 octobre 2019
3 566
Modifié par lami20j le 13/11/2011 à 20:05
Modifié par lami20j le 13/11/2011 à 20:05
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
# 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
13 nov. 2011 à 21:00
Je te remercie pour ta réponse sur laquelle j'ai "plussé"
Cordialement
Modifié par lami20j le 13/11/2011 à 21:02
Au début j'ai demandé le code puisque j'ai lu en diagonale, c'est à cause de ma paresse ;-)
Le plus important c'est que ça marche pour toi.
Merci et bonne soirée.
P.S. Je mets résolu