在 Perl 中使用 Getopt 时如何对参数进行分组？

Question

对于我正在编写的 Perl 脚本，可能会提供很多（~50）个命令行选项。其中大多数都是可选的，因此调用时只会提供部分选项。

我正在使用 Getopt::Long 但它不允许我多次使用 GetOptions 。因此，我必须在一次 GetOptions 调用中使用所有命令行选项。

使用GetOptions时是否有一些好的方法来对选项进行分组？

$ cat test.pl
use strict;
use warnings;
use Getopt::Long;

my ($a, $b, $c, $d);

GetOptions ('a=s' => \$a, 'b=s' => \$b);
GetOptions ('c=s' => \$c, 'd=s' => \$d);

print "a = $a\nb = $b\nc = $c\nd = $d\n";

$ perl test.pl -a=AA -b=BB -c=CC -d=DD
Unknown option: c
Unknown option: d
Use of uninitialized value in concatenation (.) or string at test.pl line 10.
Use of uninitialized value in concatenation (.) or string at test.pl line 10.
a = AA
b = BB
c = 
d = 
$

Answer 1

将选项存储在散列中可能是个好主意：

请参阅 Getopt： :Long ：将选项值存储在哈希中 ：

---

有时，例如当有
有很多选择，有一个单独的
他们每个人的变量可以是
麻烦。 GetOptions() 支持，如
另一种机制，存储
哈希中的选项值。

要获得此值，需要引用哈希值
必须作为第一个参数传递
到GetOptions()。对于每个选项
在命令行上指定，
选项值将被存储在
以选项名称作为键的哈希值。
实际未使用的选项
命令行不会被放入
换句话说，哈希值
exists($h{option})（或define()）可以
用于测试是否使用了某个选项。
缺点是会出现警告
如果程序在使用中运行则发出
strict 并使用 $h{option} 而不
使用 exists() 或 define() 进行测试
首先。

我的 %h = ();
GetOptions(\%h,'长度=i'); # 将存储在$h{length}中

对于采用列表或散列值的选项，它是
有必要通过以下方式表明这一点
在后面添加 @ 或 % 符号
类型：

GetOptions(\%h, 'colors=s@'); # 将推送到@{$h{colors}}

为了让事情变得更复杂，哈希可能
包含对实际内容的引用
目的地，例如：

我的 $len = 0;
我的 %h = ('length' => \$len);
GetOptions(\%h,'长度=i'); # 将存储在 $len 中

此示例完全等同于：

我的 $len = 0;
GetOptions('length=i' => \$len); # 将存储在 $len 中

任何混合物都是可能的。例如，最
经常使用的选项可能是
存储在变量中，而所有其他
选项存储在哈希中：

我的 $verbose = 0; # 经常提到的
我的 $debug = 0; # 经常提到的
我的 %h = ('verbose' => \$verbose, 'debug' => \$debug);
GetOptions(\%h, '详细', '调试', '过滤器', 'size=i');
如果 ( $verbose ) { ... }
if (exists $h{filter} ) { ... 指定了选项 'filter' ... }

Answer 2

最直接的答案是使用 Getopt::Long::Configure，如下所示：

use strict;
use warnings;
use Getopt::Long;

my ($a, $b, $c, $d);

Getopt::Long::Configure( qw(pass_through) );
GetOptions ('a=s' => \$a, 'b=s' => \$b);

Getopt::Long::Configure( qw(no_pass_through) );
GetOptions ('c=s' => \$c, 'd=s' => \$d);

print "a = $a\nb = $b\nc = $c\nd = $d\n";

请注意，您应该确保最后一次调用 GetOptions 应配置为 no_pass_through，以确保收到有关未知的警告选项。

% perl test_getop.pl -a AA -b BB -c CC -d DD -e EE
Unknown option: e
a = AA
b = BB
c = CC
d = DD

Answer 3

有什么问题：

GetOptions(
  'a=s' => \$a,
  'b=s' => \$b,
  'c=s' => \$c,
  'd=s' => \$d,
);

或者，如果它们都很短，您可以这样做：（

GetOptions(
  'a=s' => \$a,   'b=s' => \$b,
  'c=s' => \$c,   'd=s' => \$d,
);

请注意，将 $a 和 $b 用于除 之外的任何内容都是一个坏主意>排序比较。）

Answer 4

通常，数组在传递给函数之前会被展平为单个列表，尽管有些函数会覆盖此行为。使用它，您可以定义选项组数组并将数组列表传递给 GetOptions。

use strict;
use warnings;
use Getopt::Long;

my ( $opt_a, $opt_b, $opt_c, $opt_d );

my @opt_group_1 = ( 'a=s' => \$opt_a, 'b=s' => \$opt_b );
my @opt_group_2 = ( 'c=s' => \$opt_c, 'd=s' => \$opt_d );
GetOptions( @opt_group_1, @opt_group_2 );

print "a = $opt_a\nb = $opt_b\nc = $opt_c\nd = $opt_d\n";

您可以将其与在散列中存储值结合起来，以避免创建大量选项变量，如 Zaid 提到的。

use strict;
use warnings;
use Getopt::Long;

my @opt_group_1 = ( 'a=s', 'b=s' );
my @opt_group_2 = ( 'c=s', 'd=s' );

my %opt;

GetOptions( \%opt, @opt_group_1, @opt_group_2 );

print "a = $opt{a}\nb = $opt{b}\nc = $opt{c}\nd = $opt{d}\n";