我有一个现有的 Perl 程序，它使用Getoptpackage 和Getopt::Long::Configurewithpermute作为选项之一。但是，现在我需要保持用户输入的选项的顺序。$RETURN_IN_ORDER中提到了一个选项Long.pm，但似乎根本没有在任何地方使用。
当我通过return_in_order时，我收到以下错误。
Getopt::Long：C:/Program Files/IBM/RationalSDLC/common/lib/perl5/5.8.6/Getopt/Long.pm 第 1199 行的未知配置参数“return_in_order”。
有人可以告诉我这是否受支持，如果支持，正确的使用方式？如果没有，我想知道我还有其他选择。
谢谢。
我想你想要“require_order”
http://perldoc.perl.org/Getopt/Long.html#Configuring-Getopt%3a%3aLong
您有两个指向“require_order”的答案，但我认为这两个答案都误解了“require_order”的作用和您所寻求的。
如果 'require_order' 未设置，那么您可以编写（在命令行上）：
-a file -b
其中 -a 和 -b 都是简单的选项（不带参数）。设置 'require_order' 后，'file' 的存在会终止选项，并且 '-b' 标志变为 'file name'。
我认为您正在寻找的是一种机制，可以让您知道“-a”出现在“文件”和“-b”之前。我不认为 Getopt::Long 支持这一点。事实上，我不知道有任何 Getopt::* 模块可以做到这一点（除了我自己的、未发布的、我有时使用的 Getopt::JLSS）。[如果您对代码感兴趣，请通过 Gmail 给我发送电子邮件，在名字和姓氏之间使用一个点。]
require_order根据我在这里的手册页，它被称为。:-)
如果您为您的程序提供一个示例调用，也许会有所帮助。
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
在我的情况下，要求非常不同，因为命令行参数将是选项和参数的组合，如下所示。
我的工具 -arg1 值 1 -arg2 值2 -arg3 值3
这就是为什么 require_order 不是特别有用的原因。
正如我刚刚发现的那样，问题并不在于解析组件。它与用于存储它们的散列对象一起使用。
正如 tsee right 所指出的，如果我们使用默认配置，顺序将是相同的。
无论如何，谢谢各位。
需要知道指定选项的顺序是我仍然使用 Getopt::Mixed 的原因。该模块有一个 nextOption 函数，您可以循环访问它，它会按照它们在命令行上的顺序为您提供选项。
我的用例是包含和排除正则表达式：
myscript /usr --include /usr/local/bin --exclude /usr/local
当然，实际发生的情况还取决于我如何通过脚本处理包含和排除，但我需要知道顺序。
聚会很晚。我使用选项处理子例程来做到这一点。我的特殊用例是我需要以任何顺序处理任意数量的-e <foo>和-f <foo>选项，并保留该顺序（对于个人项目）。
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调用该子例程以在选项出现时对其进行处理。
随着选项数量的增加，这可能会有点笨拙，但它是......一个选项。