Question

我对Perl编程很陌生。我想使用GetOptions解析脚本的输入参数。我有一个简单的问题-如果参数混乱或参数缺少值（对于强制性参数），我希望脚本退出并显示用法消息。 src_xml是强制性参数，但是如果我运行脚本不为此参数提供值，则会在tenant_tenant.pl处收到有关-e中未初始化值$ src_xml的用法的错误消息。我究竟做错了什么？还是我必须检查每个变量是否已定义？

my $dev;
my $src_xml;
my $tgt_syscd = 'L86'; 
my $tgt_path = '/tmp/test/exports'; 
my $help;

GetOptions('src_xml=s' => \$src_xml,
        'tgt_syscd=s' => \$tgt_syscd,
        'tgt_path=s' => \$tgt_path,
        'dev' => \$dev,
        'h|help' => \$help
) or die "Usage: perl $0 --src_xml NAME --tgt_syscd NAME  --tgt_path NAME 
\n";

#checking for help
if ( defined $help ) {
    die $help_message;
}

Answer 1

您的脚本只会以这种方式消亡：

perl ./foo.pl --src_xml=

使用自定义子例程检查参数吗？

GetOptions(
    'dec-to-base35=i' => \&dec_to_base35,
    'base35-to-dec=s' => \&base35_to_dec,
);

sub dec_to_base35 ( $opt_name, $decimal_value ) {
...

完整示例here

顺便说一句，您可以加入"Perl weekly challenge"，这可能有助于学习新知识

如果参数不正确，脚本不会消失

1 个答案: