perl - 如何解析 Perl 中的命令行开关？

Question

为了延长我的"grep" emulator在 Perl 中，我添加了对 -r 的支持在子目录中启用递归搜索的开关。现在命令行调用看起来像这样:

perl pgrep.pl -r <directory> <expression>

两者 -r和 directory参数是可选的(目录默认为“.”)。到目前为止，我只是检查第一个参数是否是 -r如果是，则设置适当的标志，并使用移位操作扫描其余两个参数。如果 -r，这显然是一个问题将出现在参数列表的末尾或更糟 - 在目录名称和搜索表达式之间。

一种解决方法是简单地删除 -r @ARGV 数组中的项目，以便我可以简单地 换类 - 在剩余的参数中，但我无法想出一种方法来做到这一点，而不会在我的数组中的奇怪位置获得“undef”。欢迎任何您可能使用过的建议或不同的策略。

Answer 1

您应该使用 GetOpt::Long .这将按照描述完成您需要的一切。