前言

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

继续上文写最后的实例，花式处理文本里的空行！

实例14：文本的每行后面都加空行

$\：输出分隔符，打印每行后默认有一个$\，默认是undef；

在BEGIN块中设置，执行效率会更高；

在每一行后面直接加\n当然也是可以的；

替换的方式也是可以的；

新版本perl支持say语法，say会默认在每行后面再加一个\n分隔符；

在每行前面加空行也是很简单；

实例15：每行后面加空行，空行本身除外；

^$表示这一行首尾一致，没内容；

\s是空格，\S即为非空，所有有内容的行都能匹配上；

实例16：去掉所有的空行；

实例17：将连续的空行删除到只保留一行空行；

-e0也是表示什么都不做，相当于-e ''

实例18：段落间保留两行空行；