Perl：在使用GetOpt时，是否可以防止选项识别在双击（ - ）后停止？

我希望在perl脚本中写下接收和选项的值列表以双短划线（ - ）结尾。例：

% perl_script -letters a b c -- -words he she we --

作为运行此命令行的结果，将创建两个数组：字母= [a b c]; 单词= [他是我们]; 使用GetOption不支持此功能，b.c在使用双短划线后，选项识别停止。

已邀请:

3 个回复

导力疵谜

你有一些特定的理由使用这种令人困惑的分隔符吗？ --对大多数脚本用户有一个已知的含义，这不是它。如果你需要读入带有列表的选项，Getopt::Long有处理输入数组的方法，也许这样的东西可以帮助你;查看“具有多个值的选项”。此模块属于标准发行版，因此您甚至无需安装任何内容。我将它用于任何需要多个（可能是两个）输入的脚本，如果有任何输入是可选的。另见这里，甚至更多。这是一个快速示例，如果您可以灵活地更改输入语法，则可以获得您要求的功能：

#!/usr/bin/env perl
# file: test.pl

use strict;
use warnings;

use Getopt::Long;

my @letters;
my @words;

GetOptions(
  "letters=s{,}" => @letters,
  "words=s{,}" => @words
);

print "Letters: " . join(", ", @letters) . "n";
print "Words: " . join(", ", @words) . "n";

得到：

$ ./test.pl --letters a b c --words he she we
Letters: a, b, c
Words: he, she, we

虽然我永远不会鼓励编写自己的解析器，但我无法理解为什么有人会选择你拥有的表单，所以我会假设你不能控制这种格式并需要解决它。如果是这种情况（否则，请考虑更标准的语法并使用上面的示例），这里有一个简单的解析器，可以帮助您入门。注：不写自己的原因是其他人经过了充分的测试，并且已经解决了边缘情况。你也知道你会对--和-title之间做些什么吗？我假设因为新标题会结束前一个标题，所以你可能会介入其中一些内容并将所有这些按顺序排列在“默认”键中。

#!/usr/bin/env perl
# file: test_as_asked.pl
# @ARGV = qw/default1 -letters a b c -- default2 -words he she we -- default3/;

use strict;
use warnings;

my %opts;
# catch options before a -title (into group called default)
my $current_group = 'default';
foreach my $opt (@ARGV) {
  if ($opt =~ /--/) {
    # catch options between a -- and next -title
    $current_group = 'default';
  } elsif ($opt =~ /-(.*)/) {
    $current_group = $1;
  } else {
    push @{ $opts{$current_group} }, $opt;
  }
}

foreach my $key (keys %opts) {
  print "$key => " . join(", ", @{ $opts{$key} }) . "n";
}

得到：

$ ./test_as_asked.pl default1 -letters a b c -- default2 -words he she we -- default3
letters => a, b, c
default => default1, default2, default3
words => he, she, we