Как я могу создать сценарий Perl, чтобы получить некоторые «именованные» аргументы командной строки?

Question

Как создать сценарий Perl для получения некоторых «именованных» аргументов командной строки?

Например:

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

Где ARG_1 и ARG_2 - имена аргументов, а 1234 и "Проверка" их значений.

Answer 1

Вы можете получить аналогичный эффект, используя Getopt :: Long . Основное отличие состоит в том, что он использует стиль gnu --arguments по умолчанию. Это очень гибкий и мощный.

Answer 2

См. Getopt :: Long . Если вам это не нравится, есть много других .

В простейшем случае вы можете сделать:

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