我怎样才能得到Perl的Getopt :: Long来判断是否缺少参数?

时间:2010-08-08 14:23:47

标签: perl command-line-arguments

我正在使用Perl的Getopt::Long模块来解析命令行参数。但是,即使缺少某些参数,它似乎也会返回一个真值。有没有办法判断是否是这种情况?

2 个答案:

答案 0 :(得分:5)

在普通的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;

    # ...
}

答案 1 :(得分:4)

选项是可选的,因此名称为“Getopt”。

您检查Getopt::Long设置的选项值;如果其中一个关键词是“undef”,则会错过它,你可以识别它。

返回值告诉您命令行中没有可怕的错误。构成错误的原因取决于您使用Getopt::Long的方式,但经典的方法是命令行包含-o output,但该命令无法识别-o选项。