代码之家 › 专栏 › 技术社区 › aks

如何在Perl中解析命令行开关?

arguments command-line parsing perl

aks · 技术社区 · 17 年前

为了延长我的生命 "grep" emulator 在Perl中,我添加了对 -r

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

二者都 -r 和 directory 参数是可选的(目录默认为“.”)。现在我只是检查第一个参数是否正确 -r -r

一种解决方法是简单地删除 -r 来自@ARGV数组的项,以便转移 -在剩下的参数中,但我无法找到一种方法,在数组中的奇数位置不获得“undef”。欢迎您提出任何建议或使用不同的策略。

4 回复 | 直到 8 年前

dsm 17 年前

你应该使用 GetOpt::Long . 这将完成所描述的所有需要的操作。

Brian Carlton 17 年前

use Getopt::Std;

our $opt_r; # will be set to its value if used.
getopts('r:'); # -r has an option.

J.J. 17 年前

brian d foy 17 年前

我在中关于“配置”的章节 Mastering Perl 从perl的 -s 到常用的模块来处理这些问题。举个例子,我可能从 Getopt::Std 并转化为 Getopt::Long

推荐文章

James Finnegan · DateTime对象只能与另一个DateTime对象进行比较

11 月前

con · Negative Lookaward在perl正则表达式中不起作用

1 年前

Carsten · 使用最近的搜索模式更改文本块

1 年前

Mario Palumbo · 是否有bash-perl快捷方式来计算每行中的匹配数?

1 年前

Rawley Fowler · 我可以在Perl中为警告生成堆栈跟踪吗?

1 年前

A.Ellett · 测试-t STDIN与-t<STDIN>

1 年前

nick · 向后交换文件名

1 年前

Sangyong Gwak · 如何更改Perl Kelp应用程序的app_url

1 年前

con · 如何跳转到foreach迭代的特定点?

1 年前

A.G.Progm.Enthusiast · 如何使用Perl中的拼接从数组中一次性删除随机元素?

1 年前