Récuperer les paramètres dans un script Perl

lefreeman63 Messages postés 139 Statut Membre -  
lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   -
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

1 réponse

  1. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
     
    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
    1. lefreeman63 Messages postés 139 Statut Membre
       
      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
    2. lami20j Messages postés 21506 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 571
       
      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