如何检测无效的选项值

Question

我有一个预期解析以下内容的 perl 脚本：

prog -t xyz -p "a b" -cm xyz.cmd -co xyz.config

但我希望它在我输入时出错

prog -t xyz -p a b -cm xyz.cmd -co xyz.config

（因为 -p 后面跟着不带引号的 a 和 b）。我正在使用 Getopt::Long 来处理 cmd 行参数。如何捕捉到上述情况并出错？

谢谢！

Answer 1

你可以简单地检查一下你是否还有非选项。

use Getopt::Long qw( );

my ($opt_t, $opt_p, $opt_cm, $opt_co);

sub parse_args {
   Getopt::Long::Configure(qw( posix_default ));

   ($opt_t, $opt_p, $opt_cm, $opt_co) = ();

   Getopt::Long::GetOptions(
      'h|help|?' => \&help,
      't=s'  => \$opt_t,
      'p=s'  => \$opt_p,
      'cm=s' => \$opt_cm,
      'co=s' => \$opt_co,
   )
      or usage();

   @ARGV == 0
      or usage("Too many arguments.");
}

{
   parse_args();
   ...
}

输出（使用下面提供的usage）：

$ ./prog -t xyz -p a b -cm xyz.cmd -co xyz.config
Too many arguments.
Try `prog --help' for more information.

---

顺便提一下help和usage的实现建议：

use File::Basename qw( basename );

sub help {
   my $prog = basename($0);
   print("$prog [options]\n");
   print("$prog --help\n");
   print("\n");
   print("Options:\n");
   ...
   exit(0);
}

sub usage {
   my $prog = basename($0);
   if (my ($msg) = @_) {
      chomp($msg);
      warn("$msg\n");
   }

   warn("Try `$prog --help' for more information.\n");
   exit(1);
}