perl - 如果同一个选项多次出现，Getopt::Long GetOptions 会产生错误吗？

Question

我有这个getopt：

GetOptions(  GetOptions ("library=s" => \@libfiles);
    @libfiles = split(/,/,join(',',@libfiles));
     "help" => \$help,
     "input=s" => \$fileordir,
     "pretty-xml:4" => \$pretty
);

是否可以Getopt::Long::GetOptions检测是否在命令行上多次提供了相同的选项？例如，我希望以下内容生成错误：

perl script.pl --input=something --input=something

谢谢

Answer 1

我认为没有直接的方法，但您有两种选择：

• 使用数组并在处理选项后检查

  #!/usr/bin/perl
  
  use warnings;
  use strict;
  
  use Getopt::Long;
  
  my @options;
  my $result = GetOptions ('option=i' => \@options);
  
  if ( @options > 1 ) {
     die 'Error: --option can be specified only once';
  }
  

• 使用子程序并检查选项是否已定义

  #!/usr/bin/perl
  
  use warnings;
  use strict;
  
  use Getopt::Long;
  
  my $option;
  my $result = GetOptions (
      'option=i' => sub {
          if ( defined $option) {
              die 'Error: --option can be specified only once';
          } else {
              $option = $_[1]; 
          }
      }
  );
  

  !在这种情况下，您可以在开头使用感叹号die，错误将被捕获并报告为通常的 Getopt 错误（有关详细信息，请参阅Getopt::Long 的文档）