在 Perl 中使用 Getopt::Long 获取多维数据结构

Question

我让下面的代码可以根据需要工作，但想知道是否有更好的方法来执行此操作而不使用引号。

myScript.pl --filter 'key1 foo bar' --filter 'key2 baz qux'

#!/usr/local/bin/perl5.8.8
use warnings;
use strict;
use Getopt::Long;
use Data::Dumper;

my %filter;

GetOptions("filter=s" => sub { my @args = split(/\s/, $_[1]); $filter{$args[0]}{value1} = $args[1]; $filter{$args[0]}{value2} = $args[2]; });

print Dumper %filter;

我得到了令人满意的输出：

$VAR1 = 'key2';
$VAR2 = {
          'value1' => 'baz',
          'value2' => 'qux'
        };
$VAR3 = 'key1';
$VAR4 = {
          'value1' => 'foo',
          'value2' => 'bar'
        };

但是，我想像这样使用它，不带引号：

myScript.pl --filter key1 foo bar --filter key2 baz qux --other_option ...

key1 和 key2 是这里的哈希键，并且是唯一的。

有什么想法/建议吗？

Answer 1

当我上次检查时（几年前），没有一个 20-30 Getopt 模块将处理一串参数，而我所知道的大多数基于 C 的参数解析代码也无法处理该问题。 （我确实有一个 C 代码解析器可以处理它，前提是您知道要使用多少个参数。目前尚不清楚您是否需要 1 个键和 2 个值，或者值列表是否可以比这更可变。

---

）可能是我看的不够仔细。

Getopt::Long 有选项:

警告：以下是实验性功能。

例如，选项可以一次采用多个值

--坐标 52.2 16.4 --rgbcolor 255 255 149

这可以通过向选项规范添加重复说明符来实现。重复说明符与可与正则表达式模式一起使用的 {...} 重复说明符非常相似。例如，上面的命令行将按如下方式处理：

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

选项的目标必须是数组或数组引用。

还可以指定选项所采用的参数的最小和最大数量。 foo=s{2,4} 表示一个选项至少有两个，最多有 4 个参数。 foo=s{,} 表示一个或多个值； foo:s{,} 表示零个或多个选项值。

这将生成一个包含键和两个值的数组。鉴于这需要与具有多个条目的能力相结合（每个 --filter 一个），您可能仍然不走运，但您应该探索 Getopt::Long代码> 非常仔细。

Answer 2

您可以使用选项名称 <> 指定非选项参数的回调，并适当调整您的 %filters 哈希值，如下所示：

GetOptions('filter=s' =>  \&set_filter, '<>' => \&non_option);

我想象您的 @ARGV除非你使用 -- ，否则最终会是空的。