如何在选项的子项中访问 Getopt::Long 选项的值？

Question

我的目标是有一个 --override=f 选项来操纵其他两个选项的值。诀窍是弄清楚如何在执行的 sub 中引用选项的值（与 =f 指示符中的 f 匹配的部分）当 GetOptions 检测到命令行上存在该选项时。

我的做法如下：

$ cat t.pl
#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
our %Opt = (
    a   => 0,
    b   => 0,
);
our %Options = (
    "a=f"       => \$Opt{a},
    "b=f"       => \$Opt{b},
    "override=f"    => sub { $Opt{$_} = $_[1] for qw(a b); },  # $_[1] is the "trick"
);
GetOptions(%Options) or die "whatever";
print "\$Opt{$_}='$Opt{$_}'\n" for keys %Opt;

$ t.pl --override=5
$Opt{a}='5'
$Opt{b}='5'

$ t.pl --a=1 --b=2 --override=5 --a=3
$Opt{a}='3'
$Opt{b}='5'

代码似乎可以按照我想要的方式处理选项和覆盖。我发现在sub中，$_[0]包含选项的名称（完整名称，即使它是缩写的命令行），并且 $_[1] 包含该值。魔法。

我还没有看到这个记录，所以我担心我是否在使用这种技术时无意中犯了任何错误。

Answer 1

来自精细手册：

当 GetOptions() 遇到选项时，它将调用带有两个或三个参数的子例程。第一个参数是选项的名称。 （实际上，它是一个字符串化为选项名称的对象。）对于标量或数组目标，第二个参数是要存储的值。对于哈希目标，第二个参数是哈希的键，第三个参数是要存储的值。

因此，您所看到的行为已被记录下来，您应该放心使用它。