Добавляйте параметры Getopt::Long в хэш, даже если используется спецификатор повтора.

Perl Getopt::Long позволяет разработчику добавлять в скрипт свои собственные параметры. Также можно разрешить несколько значений параметра с помощью использования спецификатор повторения, как это видно в регулярных выражениях. Например:

GetOptions('coordinates=f{2}' => \@coor, 'rgbcolor=i{3}' => \@color);

Кроме того, значения параметров можно хранить в хеше. вот так:

my %h = ();
GetOptions(\%h, 'length=i');    # will store in $h{length}

Что я пытаюсь сделать, так это объединить эти два метода, чтобы получить хэш моих опций, даже если они имеют несколько значений.

Например, я хочу разрешить три параметра: день рождения (три целых числа), родители (одна или две строки), имя (ровно одна строка). Допустим также, что я хочу поместить эти значения в хэш. Я пробовал следующее:

use strict;
use warnings;

use Getopt::Long;
use Data::Dumper;

my %h = ();
GetOptions(\%h, 'bday=i{3}', 'parents=s{1,2}', 'name=s{1}');

print Dumper(\%h);

И проверил это, но вывод был следующим:

perl optstest.pl --bday 22 3 1986 --parents john mary --name ellen
$VAR1 = {
    'name' => 'ellen',
    'parents' => 'mary',
    'bday' => 1986
};

Только последнее значение каждой опции фактически используется в хеше. Что бы я хотел, однако, это:

$VAR1 = {
    'name' => 'ellen',
    'parents' => ['mary', 'john'],
    'bday' => [22, 3, 1986]
};

Если бы «эллен» была бы в массиве или если бы все было внутри хэша, это тоже было бы хорошо.

Разве нельзя объединить эти две функции Getopt::Long, т.е. поместить параметры в хэш и использовать спецификаторы повторения?

hash perl getopt-long

Bram Vanroy 18.04.2017 источник

Ответы (3)

arrow_upward
7
arrow_downward

use Getopt::Long;
# enable for debugging purposes
# Getopt::Long::Configure("debug");
use Data::Dumper;

my %h = ();
GetOptions(\%h, 'bday=i{3}', 'parents=s@{1,2}', 'name=s@{1}');

print Dumper(\%h);

Это то, что вы хотите?

$VAR1 = { 
          'bday' => 1986,
          'name' => [ 
                      'ellen'
                    ],
          'parents' => [ 
                         'john',
                         'mary'
                       ]
        };

palik 18.04.2017

comment

Я хотел bday как массив, но на самом деле. Мне нужна нотация @{}. Спасибо! - Bram Vanroy; 18.04.2017

arrow_upward
3
arrow_downward

Если вам нужен массив, вам нужно указать ссылку на массив.

local @ARGV = qw( --x y z );
my %h = ( x => [] );
GetOptions(\%h, 'x=s{2}');
print(Dumper(\%h));

Или вам нужно указать, что вы хотите массив.

local @ARGV = qw( --x y z );
GetOptions(\my %h, 'x=s@{2}');
print(Dumper(\%h));

Выход:

$VAR1 = {
          'x' => [
                   'y',
                   'z'
                 ]
        };

ikegami 18.04.2017

comment

Спасибо за ответ! Мне не очень нравится первый вариант. Прежде всего потому, что он будет генерировать пустые массивы, даже если параметр не указан в CLI. Это просто непрактично: простая проверка существования опции с помощью exists $h{'option'} всегда будет возвращать true, даже если она не установлена. Я не могу представить, что разработчики GetOpt предполагали такое использование. Однако второе предложение работает нормально, поэтому я воспользуюсь им. Спасибо. - Bram Vanroy; 18.04.2017

arrow_upward
1
arrow_downward

Параметры с несколькими значениями раздел документации, на который вы ссылаетесь, также говорит об этом