Perl的命令行编程

本文最后更新于2014年6月25日,已超过 1 年没有更新,如果文章内容失效,还请反馈给我,谢谢!

在Linux系统上进行操作,使用Perl有时候可以起到很好的效果(特别是在用Bash做起来比较复杂,Python的版本又太陈旧的时候),下面记录一些从网上找到的Perl命令行编程的教程:


-e 后面紧跟着引号里面的字符串是要执行的命令:

如果是多个命令就可以使用多个-e选项,这里是不是想到了sed呢?但是要注意的是中间是用的”;”分隔。

-M 导入要使用的模块:

另外 -M 可以判断某个模块是不是已经安装了。

-m 的功能和 -M 类似,区别在于 -M 模块名等同于 use 模块名,这样会把一些默认的函数或者其它东西引进过来,-m 模块名 则会关闭这些默认值,这样可以只引入一些你要使用的函数;例如上面的例子:换成-m的话就不会有任何输出;-m 和 -M 通过 = 来引入某个模块的特别函数。

-w 等同于use warnings

-n -p 都会使用 <> 将所有 @ARGV 参数当作文件来逐行运行(有循环的意思,经常和其它参数一起处理文件),会将读入的内容隐式的逐一按行来遍历文件。每一行将缺省保存在 $_ 但 -p 会将内容”重复”打印出来,而 -n 更倾向与打印满足某种条件的行(这这里还有一些有用的变量比如 $. 表示当前行的行号):

看到这里是不是想到了sed的 -n 的特性:

-i 将修改直接的写入文件,这个和sed也是一样的哦;

-a 打开自动分离 (split) 模式。空格是缺省的分离号,输入根据分离号被分离然后放入缺省数组 @F 。

和awk是不是很像?还有更像的,那就是-F,和awk一样更改字段之间的分割符,默认是空格和tab;

看到上面的那个 -l 的参数没?它的最主要的作用就是 chomp 字段和在每个输出的后面加上”\n”输出换行,是不是挺有用的呢?

有没有其它和awk有类似的地方呢?答案是肯定的,BEGIN{},END{} 是不是也很熟悉呢?以下是一些常用的简单实例:

大家还记得awk分割域(awk ‘{i = NF – 1; print $1 + $i}’)么?下面我们来看看perl:

参考链接:

声明: 除非注明,ixyzero.com文章均为原创,转载请以链接形式标明本文地址,谢谢!
https://ixyzero.com/blog/archives/134.html

《Perl的命令行编程》上有1条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注