Equivalence Perl Résolu/Fermé

Question

Salut les amis!! 

Voilà mon soucis. Je cherche l'équivalent en perl de la commande read en bash. Par exemple, comment écrire ce script ci en perl:

#! /bin/bash

read var    # C'est surtout ça dont je veux savoir la syntaxe PERL.

echo $var

exit
Je sais qu'il y aura print " $var "; et #! /usr/bin/perl , mais pour le read je bloque :-(

Merci à tous!!

lami20j · Answer

Salut,lami20j@debian:~/trash/ccm_perl$ cat ccm_stdin.pl
#!/usr/bin/perl
use strict;use warnings;

print "Votre nom? ";
chomp(my $nom = <STDIN>);
print "Votre nom est $nom
"; # sans l'utilisation de chomp
                              # pas besoin de 

__END__
lami20j@debian:~/trash/ccm_perl$ perl ccm_stdin.pl
Votre nom? lami20j
Votre nom est lami20j

Kharec · Answer

Ahhh j'ai compris!!!

Merci mille fois Lami20j =D

lami20j · Answer

Re, En fait pour aller plus loin, il s'agit de l'opérateur <> qui permet de lire un handle de fichier (STDIN étant l'entrée standard) Utilisant tout simplement <> on lit depuis les fichiers passés en arguments lami20j@debian:~/trash/ccm_perl$ cat nom1.txt kharec lami20j@debian:~/trash/ccm_perl$ cat nom2.txt lami20j lami20j@debian:~/trash/ccm_perl$ cat ccm_stdin2.pl #!/usr/bin/perl use strict;use warnings; print "Votre nom? "; chomp(my @nom = <>);# on utilise un tableau pour recuperer toutes les lignes print "@nom "; __END__ lami20j@debian:~/trash/ccm_perl$ perl ccm_stdin2.pl nom1.txt Votre nom? kharec lami20j@debian:~/trash/ccm_perl$ perl ccm_stdin2.pl nom2.txt Votre nom? lami20j lami20j@debian:~/trash/ccm_perl$ perl ccm_stdin2.pl nom1.txt nom2.txt Votre nom? kharec lami20j lami20j@debian:~/trash/ccm_perl$ perl ccm_stdin2.pl n*.txt Votre nom? kharec lami20j Au lieu de STDIN un handle de fichier lami20j@debian:~/trash/ccm_perl$ cat nom1.txt kharec lami20j@debian:~/trash/ccm_perl$ cat ccm_stdin3.pl #!/usr/bin/perl use strict;use warnings; open F1,"nom1.txt" or die "E/S : $! "; print "Votre nom? "; my $nom = ; print "$nom"; close F1; __END__ lami20j@debian:~/trash/ccm_perl$ perl ccm_stdin3.pl Votre nom? kharec Ou le handle DATAlami20j@debian:~/trash/ccm_perl$ cat ccm_stdin4.pl #!/usr/bin/perl use strict;use warnings; print "Votre nom? "; my $nom = ; print "$nom"; __END__ kharec lami20j@debian:~/trash/ccm_perl$ perl ccm_stdin4.pl Votre nom? kharec

Kharec · Answer

D'accord! Bien merci beaucoup! =)

Equivalence Perl

4 réponses

Discussions similaires