为了在Perl中扩展我的
“grep” emulator,我增加了对-r开关的支持,它可以在子目录中进行递归搜索.现在命令行调用看起来像这样：
perl pgrep.pl -r <directory> <expression>
-r和目录参数都是可选的(目录默认为’.’).到目前为止,我只是检查第一个参数是否为-r,如果是,则设置相应的标志,并使用shift操作扫描其余两个参数.如果-r出现在参数列表的末尾或者更糟糕的是 – 在目录名称和搜索表达式之间,这显然会是一个问题.
一个解决方法是简单地从@ARGV数组中删除-r项目,这样我就可以简单地移入其余的参数,但我无法找到一种方法来做到这一点而不会在奇数位置获得’undef’在我的阵列中.欢迎您使用任何建议或不同的策略.
解决方法
您应该使用
GetOpt::Long.这将按照描述执行您需要的所有操作.