perl - 当参数的值是 0 时，为什么我的 Perl 程序会打印帮助消息？

Question

如果我这样做:

GetOptions(
    'u=s'    => \$in_username,
    'r=i'   => \$in_readonly,
    'b=i' => \$in_backup
    );

exit usage() unless $in_username && $in_readonly && $in_backup;

并像这样调用程序:

./app.pl -u david -r 12 -b 0

它总是导致调用 usage()，因此显然 0 不被视为整数值。
我能做些什么来接受整数值 AND 0？

Answer 1

当被视为 bool 值时，Perl 将 0 视为假值

你需要类似的东西

exit usage() unless defined($in_username) && defined($in_readonly) && defined(in_backup);

编辑

另请参阅 MSW 对原始问题的出色评论