【perl脚本】perl one line的几个有趣实例1

前言

作为一个萌新，最近痴迷于各种一行式脚本，比如sed/grep/awk等，这次来探究下perl一行脚本的几个有趣实例；

关于perl one line的语法规则，直接看这位大神的博客就好：

https://www.cnblogs.com/f-ck-need-u/p/10219326.html

实例中用到的两个test文件内容如下：

实例1：文本替换

perl -pi -e 's/begin/BEGIN/g' test1

作用：类似于sed操作，将文件test1中的begin替换为BEGIN，直接修改原文件；

-pi：等价于-p -i；

-p/-n：使用<>将所有@ARGV参数当作文件来执行，例如例子中的test文件；-n、-p都可以被-e中的while(<>)替代；-p一般会将每一行输出，-n表示禁止默认的输出；

不过在我的Ubuntu系统中，单独使用-p时会输出每一行信息，-pi或者-p -i时未输出；

-i：in-place简称，原地修改文件，-i.tmp则会将原文件另存为原名称.tmp之后再修改原文件；

-e：将其后的字符串作为脚本内容执行，如实例中的's/begin/BEGIN/g'；

其他常用符号如-a -F -w请参考前言博客。

实例2：另存原文件之后修改文件

perl -pi.bak -e 's/BEGIN/begin/g' test1

作用：将原文件test1另存为test1.bak，之后修改test1文件将BEGIN替换为begin；

实例3：还是上面的例子，可以结合find一起使用

find ./ -name "test2" | xargs perl -pi.tmp -e "s/begin/BEGIN/g"

实例4：还是进行替换，替换you后面的内容；

perl -p -e 's/(you\s+).*/$1you_rep/g' test2

$1：perl语言中第一组正则匹配（）中匹配的内容，在某些系统中可能需要使用\1；

实例5：按行倒叙整个文件；

perl -p -e 'print reverse <>' test1

因为脚本中包含了print，就不要使用-p了；令我不解的是，这种情况下使用-p会导致程序无法退出，一直处于等待状态，求大佬解答；

实例6：按段落（没有空行即一个段落）倒叙整个文件；

perl -00e 'print reverse <>' test1

-00：以段落模式打开文件；

实例7：按字符倒叙整个文件；

perl -0777e 'print scalar reverse <>' test1

-0777一次性读入整个文件；

注意实例5 6 7应避免使用-i，否则你将得到一个空的test1文件；如果想原文件写入，不如使用下 > 吧；

实例8：显示文件3~5行；

perl -ne 'print if 3 .. 5' test1

-n禁止默认的输出，如果想要强制输出，只能在-e表达式中自行指定输出操作，例如print/say/printf。

实例9：显示BEGIN - end之间的内容；

print -ne 'print if /begin/ .. /end/' test1

嗯？最后一个end消失了？根据我之前的测试，https://blog.csdn.net/moon9999/article/details/106484521，最后一个end应该不会消失才对，难道是因为我换了linux系统的原因？

实例10：删除BEGIN END之间的内容；

实例11：在文章开头加一段话；

欢迎添加我的微信~

实例12：在文章结尾加一段话；

注意eof和eof()的区别：前者找的是单一文档的结尾，后者找的是整体执行的结尾；

实例13：在每行开始加行号；

但是同时加两个文件会出问题：

这时候要这么写：

实例14：perl one line同样支持BEGIN块和END块；