如何使用 Perl 的 Getopt::Long 按照用户输入的顺序获取选项？

Question

我有一个现有的 Perl 程序，它使用 Getopt 包和 Getopt::Long::Configure 以及 permute 作为选项之一。 但是，现在我需要保留用户输入的选项的顺序。 Long.pm 中提到了一个选项 $RETURN_IN_ORDER，但似乎根本没有在任何地方使用。

当我通过 return_in_order 时，出现以下错误。

---

Getopt::Long：C:/Program Files/IBM/RationalSDLC/common/lib/perl5/5.8.6/Getopt/Long.pm 第 1199 行的未知配置参数“return_in_order”。

---

有人可以告诉我这是否受支持吗如果是的话，正确的使用方法是什么？ 如果没有，我想知道我还有其他选择。

谢谢。

Answer 1

我认为你想要“require_order”

http://perldoc.perl .org/Getopt/Long.html#Configuring-Getopt%3a%3aLong

Answer 2

您有两个指向“require_order”的答案，但我认为这两个答案都误解了“require_order”的作用和您所寻求的内容。

如果未设置“require_order”，则可以（在命令行上）编写：

-a file -b

其中 -a 和 -b 都是简单选项（不带参数）。 设置“require_order”后，“file”的存在将终止选项，并且“-b”标志变为“文件名”。

我认为您正在寻找一种机制，可以让您知道“-a”出现在“文件”和“-b”之前。 我不认为 Getopt::Long 支持这一点。 事实上，我不知道有任何 Getopt::* 模块可以做到这一点（除了我自己的、未发布的、我有时使用的 Getopt::JLSS）。 [如果您对代码感兴趣，请通过 Gmail 向我发送电子邮件，并在名字和姓氏之间使用点。]

Answer 3

根据我这里的联机帮助页，它称为 require_order。 :-)

Answer 4

如果您提供一个对程序的调用示例，也许会有帮助。

Getopt::Long 支持将选项与普通“位置”参数混合：

./foo --option1 --option2 file1 file2 file3

如果您仅使用 GetOptions 解析选项，则 file1 到 3 将按照它们出现的顺序保留在 @ARGV 中。 也许你可以利用这种行为来实现你想要的。

此外，您可以多次指定相同的选项并将结果放入数组中（按顺序！）：

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my @permute;
GetOptions(
  'p=s' => \@permute,
);

print "$_\n" for @permute;

“perl foo.pl -p=1 -p=2 -p=3 -p=4”会产生此输出: (注意：“-p X”与“-p=X”作用相同）

1
2
3
4

Answer 5

我的情况的要求非常不同，因为命令行参数将是选项和参数的组合，如下所示。

mytool -arg1 value 1 -arg2 value2 -arg3 value3

这就是为什么 require_order 不是特别有用。

正如我刚刚发现的，问题并不在于解析组件。 它与用于存储它们的哈希对象一起。

正如 tsee right 所指出的，如果我们使用默认配置，顺序将是相同的。

不管怎样，谢谢大家。

Answer 6

需要知道指定选项的顺序是我仍然使用 Getopt::Mixed 的原因。 该模块有一个 nextOption 函数，您可以循环遍历该函数，它会按照命令行上的顺序为您提供选项。

我的用例是包含和排除正则表达式：

myscript /usr --include /usr/local/bin --exclude /usr/local

当然实际发生的情况也取决于我如何处理包含并通过脚本排除内部，但我需要知道顺序。

Answer 7

参加聚会非常。 我使用 选项处理子例程。 我的特殊用例是，我需要以任何顺序处理任意数量的 -e 和 -f 选项，并保留该顺序（对于个人项目）。

use Data::Dumper; use Getopt::Long; use strict; use warnings;
my @Sources;    # Each element is [was -f, parameter]

my $dr_save_source = sub {      # Called each time we see -e or -f
    my ($which, $text) = @_;
    push @Sources, [$which eq "f", $text];
}; # dr_save_source

GetOptions("e=s@" => $dr_save_source, "f=s@" => $dr_save_source);
print Dumper(\@Sources);

提供子例程引用 $dr_save_source 作为与选项规范 (=> $dr_save_source) 关联的值，告诉 GetOptions 调用该子例程来处理每当该选项出现时。

随着选项数量的增加，这可能会有点笨拙，但它是......一个选项。