Sujet Précédent Sujet Suivant

Récuperer les paramètres dans un script Perl

Fermé
lefreeman63 Messages postés 136 Date d'inscription mercredi 20 avril 2011 Statut Membre Dernière intervention 11 février 2016 - 20 avril 2011 à 22:10
lami20j Messages postés 21331 Date d'inscription jeudi 4 novembre 2004 Statut Modérateur, Contributeur sécurité Dernière intervention 30 octobre 2019 - 21 avril 2011 à 19:26
Bonjour,

je cherche à exécuté un script Perl en lui passant des paramètres:
perl script.pl jqm

ma question est:
comment je fais pour récupérer mon paramètre et le stocké dans une variable dans mon code en Perl?

Merci par avance

A voir également:

1 réponse

Réponse 1 / 1
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 567
20 avril 2011 à 22:34
Salut,

comment je fais pour récupérer mon paramètre et le stocké dans une variable dans mon code en Perl?

Il est stocké dans @ARGV 

lami20j@debian-acer:~$ vi script.pl
lami20j@debian-acer:~$ cat script.pl
#!/usr/bin/perl
use strict;use warnings;
print "Paramètre 1 : $ARGV[0]\n";
print "Tous les paramètres : @ARGV\n";
__END__

lami20j@debian-acer:~$ perl script.pl jqm 
Paramètre 1 : jqm
Tous les paramètres : jqm
lami20j@debian-acer:~$ perl script.pl jqm azerty qwerty lefreeman63
Paramètre 1 : jqm
Tous les paramètres : jqm azerty qwerty lefreeman63
lami20j@debian-acer:~$



0
lefreeman63 Messages postés 136 Date d'inscription mercredi 20 avril 2011 Statut Membre Dernière intervention 11 février 2016
20 avril 2011 à 23:35
super sa marche niquel!!!

mais une dernière petite question tous les paramètres que tu traite dans "Tous les paramètres"
au lieu des les affiché dans le script perl avec les print comment tu ferrai pour les stocker dans une variable différente pour chaque paramètre?

merci encore
0
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 567
21 avril 2011 à 19:26
Salut,

Oui, bien sûr qu'on peut récupérer.
Voici un exemple 

lami20j@debian-acer:~$ cat script.pl 
#!/usr/bin/perl
use strict;use warnings;
my ($var1, $var2, $var3)= @ARGV;
print "$var1\n$var2\n$var3\n";

__END__

lami20j@debian-acer:~$ perl script.pl aa bb cc
aa
bb
cc


Mais je pense que mieux vaux que tu dises ce que tu veux faire exactement puisque je ne vois pas l'intérêt d'utiliser une variable pour stocker ce qui est déjà contenu dans une variable spéciale.
0