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

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

arguments command-line parsing perl

aks · 技术社区 · 15 年前

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

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

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

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

4 回复 | 直到 7 年前

dsm 15 年前

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

Brian Carlton 15 年前

use Getopt::Std;

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

J.J. 15 年前

brian d foy 15 年前

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

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

2 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前