Аргументы командной строки с несколькими значениями

Question

Я выполняю скрипт perl, и мне нужно получить несколько значений из командной строки. Пример:

perl script.pl --arg1 op1 op2 op3 

Я использую Getopt :: Long, и я могу получить эту работу:

perl script.pl --arg1 op1 --arg1 op2 --arg1 op3 

Но мне действительно нужно (хочу) первый вариант.

Я проверил в их документации, и это должен делать то, что я хочу:

GetOptions('arg1=s{3}' => \@myArray); 

http://search.cpan.org/~jv/Getopt-Long-2.38/lib/Getopt/Long.pm#Options_with_multiple_values

Но я получаю эту ошибку:

Error in option spec: "arg1=f{3}"

Любые идеи/решения ?

Answer 1

Ваш код работает для меня, но похоже, что эта функция была добавлена ​​только в Getopt :: Long недавно (версия 2.35), поэтому у вас может быть старая версия Getopt :: Long. Пробег

perl -MGetopt::Long -le'print $Getopt::Long::VERSION;' 

, чтобы узнать, какая у вас версия.

Answer 2

Я думаю, что ваша проблема может быть f{3}. f используется для float аргументы (действительные числа). Вы должны использовать спецификатор s, если у вас есть строки в качестве аргументов. Что касается количества аргументов, документация говорит:

It is also possible to specify the minimal and maximal number of arguments an option takes. foo=s{2,4} indicates an option that takes at least two and at most 4 arguments. foo=s{,} indicates one or more values; foo:s{,} indicates zero or more option values.

Примите во внимание hise записки от докторов и приспособиться к вашим потребностям.

Answer 3

Я не уверен, почему люди не предлагали это решение, но этот пост настолько стар, наверное, слишком поздно, чтобы быть полезным.

Существует нет автоматического способа сделать это, что я нашел.

Что вам нужно сделать, это цитата многочисленные аргументы и анализировать их в коде:

perl myscript.pl -m 'a b c' 

, а затем разделить -m значение аргумента внутри кода и делать все, что нужно оттуда.

Answer 4

Аналогичный вопрос для getoptions function perl multi value not working, я думаю ... В любом случае, кажется, что только использование "optlist=s" => \@list, работает для меня, для хранения дубликатов/повторов в массиве; это моя версия:

$ perl --version | grep This && perl -MGetopt::Long -le'print $Getopt::Long::VERSION;' 
This is perl, v5.10.1 (*) built for i686-linux-gnu-thread-multi 
2.38 

Пример (test.pl):

#!/usr/bin/perl 
use strict; 
use warnings; 
use Getopt::Long; 
my $numone = 0; 
my $numtwo = 1; 
my @list=(); 
my $result; 
$result = GetOptions (
    "numone=i" => \$numone, 
    "numtwo=i" => \$numtwo, 
    "optlist=s" => \@list, 
); 

printf("result: %d;\n", $result); 
printf("numone: %d, numtwo %d, optlist:\n", $numone, $numtwo); 

foreach my $tmplist (@list) { 
    printf(" entry: '%s'\n", $tmplist); 
} 

Испытательный выход:

$ perl test.pl --numone 10 --numtwo 20 --optlist testing --optlist more --optlist options 
result: 1; 
numone: 10, numtwo 20, optlist: 
entry: 'testing' 
entry: 'more' 
entry: 'options'