perl - 检查有效命令行参数的简单方法？

Question

我正在寻找一种简单的方法来检查正确数量的命令行参数，如果发生错误则显示使用消息，然后立即退出。
我想到了类似的东西

if (@ARGV < 3) {
  print STDERR "Usage: $0 PATTERN [FILE...]\n";
  exit 1;
}

这是一个有效的模式吗？

Answer 1

另外，我强烈建议使用 Perl 中处理命令行参数的惯用方式，Getopt::Long模块(并开始使用命名参数而不是基于位置的参数)。

如果您有 <3 个参数，您并不真正关心。您通常关心是否存在参数 a、b 和 C。

就命令行界面设计而言，3 个参数是关于位置参数 (cmd <arg1> <arg2>) 与任意顺序的命名参数 (cmd -arg1 <arg1> -arg2 <arg2>) 之间的截止点。

所以你最好这样做:

use Getopt::Long;
my %args;
GetOptions(\%args,
           "arg1=s",
           "arg2=s",
           "arg3=s",
) or die "Invalid arguments!";
die "Missing -arg1!" unless $args{arg1};
die "Missing -arg2!" unless $args{arg2};
die "Missing -arg3!" unless $args{arg3};