我正在使用 Perl 的 Getopt::Long 模块来解析命令行参数。但是，即使缺少某些参数，它似乎也会返回一个真值。有没有办法判断是不是这种情况？
【问题讨论】：
标签： perl command-line-arguments
在普通的旧 Getopt::Long 中，您不能直接执行此操作 - 正如 Jonathan 所说，您需要检查您对 undef 的要求。但是，恕我直言，这是一件好事——什么是“必需”参数？通常，在一种情况下需要的参数而不是另一种情况下需要的参数——这里最常见的例子是--help 选项的痛点。它不是必需的，如果用户使用它，他可能不知道或不会传递任何其他“必需”参数。
我在我的一些代码中使用了这个成语（嗯，我曾经使用过，直到我改用MooseX::Getopt）：
use List:MoreUtils 'all';
Getopt::Long::GetOptions(\%options, @opt_spec);
print usage(), exit if $options{help};
die usage() unless all { defined $options{$_} } @required_options;
即使使用 MooseX::Getopt 我也不会将我的属性设置为 required => 1，这也是因为 --help 选项。相反，我在进入程序执行主体之前检查是否存在我需要的所有属性。
package MyApp::Prog;
use Moose;
with 'MooseX::Getopt';
has foo => (
is => 'ro', isa => 'Str',
documentation => 'Provides the foo for the frobnitz',
);
has bar => (
is => 'ro', isa => 'Int',
documentation => 'Quantity of bar furbles to use when creating the frobnitz',
);
# run just after startup; use to verify system, initialize DB etc.
sub setup
{
my $this = shift;
die "Required option foo!\n" unless $this->foo;
die "Required option bar!\n" unless $this->bar;
# ...
}
【讨论】：
选项是可选的，因此命名为“Getopt”。
您检查Getopt::Long设置的选项值；如果关键之一是“undef”，则它被遗漏了，您可以识别它。
返回值告诉你命令行中没有可怕的错误。错误的构成取决于您如何使用Getopt::Long，但一个经典的错误是命令行包含-o output，但该命令无法识别-o 选项。
【讨论】：