[转帖] Linux 下面 perl 命令的简介

https://www.jb51.net/article/123326.htm

感觉挺好的 改天需要仔细学习一下.

前言

本文主要给大家介绍了关于Perl单行命令的相关内容，分享出来供大家参考学习，下面话不多说了，来一起看看详细的介绍吧。

与One-Liner相关的perl参数

记住以上几点参数，几乎可以开始使用perl来编写one line命令了

以上为简介版，下面这张图可以算是完整版

根据下面的例子来理解下perl one line

1、基本格式：perl -参数 ‘命令' 输入文件

2、perl -e为必须要写的参数

3、perl -pe 可用于读取文件每行，并按照给定的命令进行处理，最后输出；如将文件1.txt中的aaa替换为AAA

1	`perl -pe` `'s/aaa/AAA/g'` `1.txt`

4、perl -l参数几乎可以跟n搭配代替perl经常用的while(<>){chomp;}语法

5、如果需要处理tab分割的文件的每一行内容，那么perl -alne参数几乎可以说是必备的，例如while(<>){chomp;@F=split /\s+/,$_;print "$F[0]\n"}相当于

1	`perl -alne` `'print $F[0]'`

6、perl单行命令脚本里的变量都不需要预先声明，如想打印出每空行，并且每行以行数开头

1	`perl -ne` `'print ++$a." $_" if /./'`

7、perl单行命令有时优于sed/grep等shell命令是由于其优秀的正则匹配，通常简单的匹配可以如：匹配上的行号，模仿grep -c的功能：

1	`perl -lne` `'$a++ if /regex/; END {print $a+0}'`

8、perl单行命令可以使用perl的模块，如使用sum函数的模块：

1	`perl -MList::Util=sum` `-alne` `'print sum @F'`

9、perl也可以像awk一样使用END命令，如打印出文件中总单词个数

1	`perl -alne` `'$t += @F; END { print $t}'`

10、perl也可以使用map{}等函数，如打印出匹配上的单词的总个数

1	`perl -alne` `'map { /regex/ && $t++ } @F; END { print $t }'`

11、perl单行命令可以说是将perl的简洁用到了极致，如打印出匹配上的行：

1	`perl -ne` `'/regex/ && print'`

12、perl单行命令能像perl一样灵活的使用则正表达式

1	`perl -ne` `'print if /^\d+$/'`

以上例子均出自于http://www.catonmat.net/blog/perl-one-liners-explained-part-one/

使用perl来处理数据的我们，会一点Perl one line可以有效的减少编写重复命令的时间，尤其是那些就用1-2次就不会用的脚本，尤其在window系统下不方便使用shell命令的时候。

PS.当然在windows系统下也可以借用git模拟Unix命令环境~~~~

总而言之，蛮适合学习下，多用用

总结

以上就是这篇文章的全部内容了，希望本文的内容对大家的学习或者工作具有一定的参考学习价值，如果有疑问大家可以留言交流，谢谢大家对脚本之家的支持。

巴特西