最后是关于特殊变量 $\ 表示print的输出行分隔符(awk的ORS变量)，它默认为undef，所以print输出的每段数据之间都是紧连在一起的。此处示例将 $\ 指定为换行符。

由于 <> 读取数据时已经将文本中每一行的 \n 也读取了，所以加上 $\ 已经有两个连续的 \n ，于是每行后面都会多一空行。

实际上没有必要为每一读入的行都设置 $\ ，可以将它设置在BEGIN块中：

1

$ perl -pe 'BEGIN{$\ = "\n"}' file.log

对于本示例【每行之后加上空行】有多种解决方式。例如：

1
2
3
4

$ perl -pe '$_ .= "\n"' file.log
$ perl -nE 'say "$_\n"' file.log
$ perl -pe 's/$/\n/' file.log
......

这里使用unless逻辑进行空行匹配，如果匹配空行，就不对当前行追加尾随换行符。unless测试等价于if的否定测试。

有些空行可能是包含了空白符号(空格、制表符等)的行，这些空白肉眼不可识别，但却占了字符空间，使得无法匹配 ^$ ，所以更好的匹配模式是：

1

$ perl -pe '$_ .= "\n" if /\S/'

\S 表示任意单个非空白字符， \s 表示任意单个空白字符。所以这里的逻辑是：只要行能匹配非空白字符，就追加尾随换行符。

1

$ perl -pe '$_ .= "\n" x 3' file.log

Perl的字符串可以使用小写字母 x 表示重复N次，例如 "a" x 3 得到”aaa”， "ab" x 2 得到 abab 。上面的示例表示为每行都追加3个换行符。

通过字符串重复操作，可以很轻松地输出等长的分割线：

1
2
3
4
5
6
7
8
9

$ perl -e '
        print "-" x 30,"\n";
        print "hahaha\n";
        print "-" x 30,"\n";
        print "heihei\n";'
------------------------------
hahaha
------------------------------
heihei

此处使用了 -n 选项，表示禁止默认的输出。print和匹配操作的对象都使用默认变量 $_ 。等价于：

整个逻辑是：只要匹配了空行 /^$/ ，就不输出。

这也有好几种方式可以实现，例如：

1

$ perl -ne 'print if /\S/' file.log

比较独特的一种实现方式是使用length函数：

1

$ perl -lne 'print if length' file.log

这里涉及选项 -l 和函数length()，且print和length都没有指定操作对象，所以使用默认变量 $_ ，等价于：

1

$ perl -lne 'print $_ if length $_' file.log

length函数可以获取字符串的字符个数，注意是字符数不是字节数。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

first paragraph:
        first line in 1st paragraph
        second line in 1st paragraph
        third line in 1st paragraph


second paragraph:
        first line in 2nd paragraph
        second line in 2nd paragraph
        third line in 2nd paragraph


third paragraph:
        first line in 3rd paragraph
        second line in 3rd paragraph
        third line in 3rd paragraph

sed/awk中想要压缩连续空行，总要多读入几行进行连续空行的判断。例如:

1

$ sed -nr '$!N;/^\n$/!P;D' paragraph.log

但在perl一行式中，这会变得无比的简单：

1

$ perl -00pe '' paragraph.log

这里两个关注点： -00 和 -e '' 。

-e '' 的表达式部分为空，表示什么也不做。什么也不做的时候，也可以写成 -e0 。

1

$ perl -00pe0 paragraph.log

-0OCTNUM 表示设置输入行分隔符 $/ 。

如果省略8进制值OCTNUM，则-0表示设置 $/ 为undef，即 $/ = undef ，也就是一次性从文件头读到文件尾当作一行赋值给 $_ 。

这里指定了8进制的值为0，对应于ASCII的空字符串，即等价于 $/ = "" ，它表示 按段落读取 (slurp读取模式)，并压缩连续的空行为单个空行。

什么是段落？中间隔了至少一空行的是上下两个段落，段落意味着可能包含了连续的多行。但是如果隔了连续的空行呢？设置 $/ = "" 会按段落读取，并压缩连续的空行为单空行，然后作为上面的段落的一部分。设置 $/ = "\n\n" 也表示按段落读取，但它不会压缩连续的空行。

如何知道是否是按段落读取？可用下面的示例进行测试：

1
2
3

$ perl -ne '
    BEGIN{$/ = "";}
    print $_."xxxxx" if /2nd/' paragraph.log

会发现追加的几个字符 xxxxx 是单独附加在第二段落的尾部的，而不是能匹配 2nd 的每一行上。

1

$ perl -00pe '$_ .= "\n" x 3' paragraph.log

这表示将每个段落之间规范为4个连续的空行进行分隔。之所以是4空行而不是3，是因为压缩成单空行后，又追加了3空行。

1.每行单词间的空给双倍化：每个空白都扩成2空格

1

$ perl -lpe 's/ /  /g' file.log

2.移除每行单词间的所有空白

1

$ perl -lpe 's/ //g' file.log

3.每行单词间连续空白压缩为单空格

1

$ perl -lpe 's/\s+/ /g' file.log

4.所有字符间插入一个空格

1

$ perl -lpe 's// /g' file.log