Comment créer un script Perl pour obtenir des arguments de ligne de commande "nommés"?

Question

Comment puis-je créer un script Perl pour obtenir des arguments de ligne de commande "nommés"?

Par exemple:

perl my_perl.pl -ARG_1 1234 -ARG_2 "Testing" 

Où Arg_1 et ARG_2 sont les noms des arguments et 1234 et "Test" leurs valeurs.

Answer 1

Vous pouvez obtenir un effet similaire en utilisant Getopt::Long. La principale différence est qu'elle utilise par défaut les arguments - style gnu. C'est très flexible et puissant.

Answer 2

Voir Getopt::Long. Si vous n'aimez pas cela, il y a beaucoup de others.

Dans le cas le plus simple, vous pouvez faire:

my %args = @ARGV; 
print $args{-ARG_1}, "\n";