Comment passer des arguments de ligne de commande à un programme Perl?

Question

Je travaille sur un script Perl. Comment puis-je passer des paramètres de ligne de commande?

Exemple:

script.pl "string1" "string2" 

Answer 1

Dépend de ce que vous voulez faire. Si vous souhaitez utiliser les deux arguments en tant que fichiers d'entrée, vous pouvez simplement les transmettre et utiliser <> pour lire leur contenu.

Si elles ont une signification différente, vous pouvez utiliser GetOpt::Std et GetOpt::Long pour les traiter facilement. GetOpt::Std prend en charge uniquement les commutateurs à caractère unique et GetOpt::Long est beaucoup plus flexible. De GetOpt::Long:

use Getopt::Long; 
my $data = "file.dat"; 
my $length = 24; 
my $verbose; 
$result = GetOptions ("length=i" => \$length, # numeric 
        "file=s" => \$data,  # string 
        "verbose" => \$verbose); # flag 

Alternativement, @ARGV est une variable spéciale qui contient tous les arguments de ligne de commande. $ARGV[0] est le premier (c'est-à-dire "string1" dans votre cas) et $ARGV[1] est le deuxième argument. Vous n'avez pas besoin d'un module spécial pour accéder à @ARGV.

Answer 2

Vous les passez tout comme vous pensez, et dans votre script, vous les obtenez à partir du tableau @ARGV. Comme ceci:

my $numArgs = $#ARGV + 1; 
print "thanks, you gave me $numArgs command-line arguments.\n"; 

foreach my $argnum (0 .. $#ARGV) { 

    print "$ARGV[$argnum]\n"; 

} 

De here.

Answer 3

foreach my $arg (@ARGV) { 
    print $arg, "\n"; 
} 

va imprimer chaque argument.

Answer 4

Si les arguments sont les noms de fichiers à lire à partir, utilisez le diamant (<>) opérateur pour obtenir à leur contenu:

while (my $line = <>) { 
    process_line($line); 
} 

Si les arguments sont des options/commutateurs, utilisez GetOpt :: Std ou GetOpt :: Long, comme déjà montré par slavy13.myopenid.com.

Au hasard qu'ils sont quelque chose d'autre, vous pouvez y accéder soit en marchant à travers @ARGV explicitement ou avec la commande shift:

while (my $arg = shift) { 
    print "Found argument $arg\n"; 
} 

(Notez que faire avec shift ne fonctionnera que si vous êtes en dehors de toutes les sub s. Dans un sub, il récupérera la liste des arguments passés à la sub plutôt que ceux qui sont passés au programme.)

Answer 5

Si vous voulez juste des valeurs, vous pouvez simplement utiliser la @ARGV tableau. Mais si vous cherchez quelque chose de plus puissant pour effectuer un traitement des options de ligne de commande, vous devez utiliser Getopt::Long.

Answer 6

Alternativement, d'une manière plus sexy perlienne .....

my ($src, $dest) = @ARGV;

"Suppose" deux valeurs sont transmises. Un code supplémentaire peut vérifier que l'hypothèse est sûre.

Answer 7

Encore une autre est d'utiliser de perl -s, par exemple:

#!/usr/bin/perl -s 

print "value of -x: $x\n"; 
print "value of -name: $name\n"; 

Ensuite, appelez comme ceci:

% ./myprog -x -name=Jeff 
value of -x: 1 
value of -name: Jeff 

Ou voir the original article pour plus de détails:

Answer 8

Vous pouvez accéder à directement, en affectant la variable spéciale @ARGV à une liste de variables. Ainsi, par exemple:

($st, $prod, $ar, $file, $chart, $e, $max, $flag ,$id) = @ARGV; 

perl tmp.pl 1 2 3 4 5

Answer 9

my $output_file; 

if((scalar (@ARGV) == 2) && ($ARGV[0] eq "-i")) 

{ 

$output_file= chomp($ARGV[1]) ; 


}