如何从哈希规范访问多个选项值

Question

    use Getopt::Long;

    GetOptions(\%gOptions,
        "help",
        "size=i",
        "filename=s{2}",
    );

我正在传递选项，例如 -

--size 200 --filename abc.txt def.txt

我尝试通过哈希规范访问文件名

my @array = $gOptions{filename};
print $array[0];
print $array[1];

但是，这是行不通的。如何从哈希规范%gOptions访问多个选项值？

笔记 ： 我可以像这样将 filename 映射到单独的数组 -

"filename=s{2}" => \@filearray,
print "$filearray[1];"

但我不喜欢这种方法。

Answer 1

documentation 关于这种用法的说法是：

对于采用列表或散列值的选项，有必要通过在类型后附加 @ 或 % 符号来表明这一点

然后它将在适当的字段中使用对数组或散列的引用来保存值。

所以...

#!/usr/bin/env perl
use warnings;
use strict;
use feature qw/say/;
use Getopt::Long;

my %gOptions;

GetOptions(%gOptions,
  "help",
  "size=i",
  # The @ has to come after the type, and before the repeat count.
  # Note the single quotes so @{2} isn't subject to variable interpolation
  'filename=s@{2}', 
);

say for $gOptions{"filename"}->@* if exists $gOptions{"filename"};
# or @{$gOptions{"filename"}} if your perl is too old for postderef syntax

例子：

$ perl foo.pl --filename a b
a
b