197 lines
9.5 KiB
Markdown
197 lines
9.5 KiB
Markdown
|
||
# 有选择的打印或者删除行
|
||
|
||
## 85.打印文件的首行(模仿head -1)
|
||
|
||
perl -ne 'print; exit'
|
||
|
||
本行代码迄今为止最简单一个。此处由于使用-n参数Perl读了第一行到$_，接着调用print语句输出 $_变量的内容。接着推出。就这样，第一行就被打印出来了，而这恰好就是我们需要的。
|
||
|
||
## 86.打印文件开始的10行（模仿head -10）
|
||
|
||
perl -ne 'print if $. <= 10'
|
||
|
||
本行代码是使用了$.特殊变量。这个变量带包“当前行序号”。每次Perl读下一行的时候，$.的值为自动加一。因此本行代码非常好理解：当行序号等于或者小于10的时候，打印出行内容。
|
||
本行代码也可以用不带if语句的方法：
|
||
|
||
perl -ne '$. <= 10 && print'
|
||
|
||
此处，只有当$.<=10布尔表达式为true时执行打印语句，而只有行号小于或者等于10时候表达式为真。
|
||
|
||
## 87.打印最后一行（模仿tail -1）
|
||
|
||
perl -ne '$last = $_; END { print $last }'
|
||
|
||
打印最后一行的代码需要一点技巧，因为你一直需要把前一行保存在内存里。本行代码总我们一直把当前行保存到$last变量。当Perl代码结束时候，总会执行END块的。现在当读完最后一行，执行END块，退出的时候，我们打印出$last变量，这就是最后一行的内容。
|
||
另外一种同样同能代码是，
|
||
|
||
perl -ne 'print if eof'
|
||
|
||
本行代码使用eof函数，这个函数在下一次读到文件的末尾时候返回1。由于读到文件最后一行的时候，下一行读（文件末尾）返回eof为真，所以本代码作出了我们期望所做的事情。
|
||
|
||
## 88.打印文件的最后10行（模拟tail -10）
|
||
|
||
perl -ne 'push @a, $_; @a = @a[@a-10..$#a]; END { print @a }'
|
||
|
||
这个有点复杂。此处我们把每一行都put到数组@a中，然后用他的数组切片代替他。我们做 @a = @a[@a-10..$#a]，这表示用@a的最后10个元素取代他自己。@a-10在标量上下文被估值，他返回值为数组元素个数减10。#$a是@a数组的最后一个下标。@a[@a-10..#$a]取得了数组的最后10个元素的下标，所以@a保存了最后10个元素。
|
||
|
||
举例子假设数组@a保存("line1", "line2", "line3", "line4")。我们想要打印文件最后4行。当我们读到滴5行时候，数组变成了("line1", "line2", "line3", "line4", "line5")。这时，由于@a在标量环境下估值为5，@a-4值为1。#$a值为4。数组切片@a[@a-4..$#a]则为@a[1..4],这去掉了数组中的第一个元素。当作为替换后@a就变成了("line2", "line3", "line4", "line5")。
|
||
|
||
## 89.仅打印匹配模式的行。
|
||
|
||
perl -ne '/regex/ && print'
|
||
|
||
此处/regex/是$_ =~ /regex/的缩写。由于-n操作符会把每一行都放到$_变量中，所有匹配模式的行/regex/会返回true，就会打印出行内容。
|
||
|
||
## 90.仅打印模式不匹配的行。
|
||
|
||
perl -ne '!/regex/ && print'
|
||
|
||
本行和尚一行基本上一样，但是模式表达被取反了。于是会打印所有不匹配的行。
|
||
|
||
## 91.打印匹配行之前的一行。
|
||
|
||
perl -ne '/regex/ && $last && print $last; $last = $_'
|
||
|
||
本行代码中我们把每一行的内容保存到$last变量中。当行匹配模式的时候，$last中是其上一行的内容，于是打印$last，接着把当前行的内容复赋值给$last变量。
|
||
|
||
## 92.打印模式匹配行之后的一行。
|
||
|
||
perl -ne 'if ($p) { print; $p = 0 } $p++ if /regex/'
|
||
|
||
此处如果行匹配模式的话我们设置变量$p的值。用它指示下一行将会被打印。当下一行被读到，$p被设置，于是这行被打印，并且$p被又被设置为0，重置其状态。
|
||
|
||
## 93.打印任意顺序匹配AAA和BBB的行。
|
||
|
||
perl -ne '/AAA/ && /BBB/ && print'
|
||
|
||
本行代码基本上和此前例86一样，只不过这儿测试的模式变成了两个，如果一个行匹配了两个模式，他就会被打印出来。
|
||
|
||
## 94.打印不匹配AAA和BBB模式的行。
|
||
|
||
perl -ne '!/AAA/ && !/BBB/ && print'
|
||
|
||
本行代码基本上和此前例87一样，此处测试行是否不匹配任意顺序两个模式。如果不匹配/AAA/ 并且不匹配/BBB/,我们打印出这行。
|
||
|
||
## 95.打印匹配模式AAA接着模式BBB，再接着模式CCC的行。
|
||
|
||
perl -ne '/AAA.*BBB.*CCC/ && print'
|
||
|
||
此处简单的将三个模式AAA，BBB,CCC用“.*”连了起来，表示匹配这所有的或者不匹配。如果AAA跟着BBB又跟着CCC模式，这行就会被打印。他也会匹配AAABBBCCC这样的。
|
||
|
||
## 96.打印所有80字符或者大于80字符的行
|
||
|
||
perl -ne 'print if length >= 80'
|
||
|
||
本行代码打印所有大于或者等于80字符的行。Perl中你时常可以省略掉函数调用时候的括弧（）。此处我们省略了长度函数的括弧。实际上，length,length() 和length($_)都是一样的。
|
||
|
||
## 97.打印小于80字符的行。
|
||
|
||
perl -ne 'print if length < 80'
|
||
|
||
这和前一行代码相反。检测行长度是否小于80字符。
|
||
|
||
## 98.仅带打印13行
|
||
|
||
perl -ne '$. == 13 && print && exit'
|
||
|
||
和此前例13介绍的一样，$.变量表示当前行数。所以，如果$.等于13，我们就打印了13行，并退出。
|
||
|
||
## 99.打印除27行外的所有行。
|
||
|
||
perl -ne '$. != 27 && print'
|
||
|
||
和上一行代码类似，我们检测当前行是否为27行，如果不是我们打印它，否则跳过。
|
||
另一种实现同样功能的方式是颠倒print和$.!=27,使用if语句。
|
||
|
||
perl -ne 'print if $. != 27'
|
||
|
||
## 100.仅打印13，19和67行。
|
||
|
||
perl -ne 'print if $. == 13 || $. == 19 || $. == 67'
|
||
|
||
如果你是用Perl 5.10或者更新版本你可以使用~~~智能匹配符，
|
||
|
||
perl -ne 'print if int($.) ~~ (13, 19, 67)'
|
||
|
||
智能匹配符“~~”仅在Perl 5.10才推出。你可以用它做所有类型的智能模式匹配。例如，检查是否两个数组是一样的；是否一个数组包含一个元素，以及其他很多用法（见perldoc perlsyn）。在本行代码中我们使用 int($.）~~(13,19,67) 用来检测是否数值$.在列表（13，19，67）中。这基本上是对代码 grep {$_==int($.)} (13,19,67)缩写。如果检测成功，行就会被打印。
|
||
|
||
## 101.打印匹配两个模式之间的所有行（包括匹配模式的行）
|
||
|
||
perl -ne 'print if /regex1/../regex2/'
|
||
|
||
本行代码使用触发操作符，当某行匹配regex1他变为ture，当其后另一行匹配了regex2时候变为false。因此这个行代码就会打印出匹配了两个模式之间的所有行。
|
||
|
||
## 102.打印17到30之间所有行
|
||
|
||
perl -ne 'print if $. >= 17 && $. <= 30'
|
||
|
||
本行代码非常容易理解。$.变量表示当前行号，于是它检测是否当前行号大于等于17并且小于等于30。
|
||
另一种写法是，
|
||
|
||
perl -ne 'print if int($.) ~~ (17..30)'
|
||
|
||
这行代码使用Perl5.10(或者更新版本)的智能匹配操作符~~。这主要是说，当前行号在列表(17, 18, 19, ..., 30)。如果是，智能模式符匹配成功，行就会被打印。
|
||
在老Perl版本你可以用下面的代码代替，
|
||
|
||
perl -ne 'print if grep { $_ == $. } 17..30'
|
||
|
||
这主要是用grep过程探测，是否当前行号在列表(17, 18, 19, ..., 30)。如果是，返回列表中的一个元素，而有一个元素的列表表示为真，所以行就会被打印。否则的话返回一个空列表，代表为false，就不会得到打印。
|
||
|
||
## 103.打印最长的行。
|
||
|
||
perl -ne '$l = $_ if length($_) > length($l); END { print $l }'
|
||
|
||
本行代码保存目前看得见最长的行到$l变量中。一旦当前行$_超过了迄今最长的行，就替换它。最后退出之前，在END块执行打印出最长的行$l。
|
||
|
||
## 104.打印最短的行。
|
||
|
||
perl -ne '$s = $_ if $. == 1; $s = $_ if length($_) < length($s); END { print $s }'
|
||
|
||
本行代码和上一例正好相反。但是我们要找到最短的并且由于$s在首行没有定义，我们必须显式的指定其为第一行，不然后面的小于判断都会失败，得不到想要的结果。
|
||
|
||
## 105.打印包含数字的所有行
|
||
|
||
perl -ne 'print if /\d/'
|
||
|
||
本行代码使用正则表达式\d,这表示匹配一个数字，检查是否包含，如果包含，检测成功，打印出行。
|
||
|
||
## 106.发现仅仅包含一个数字的行。
|
||
|
||
perl -ne 'print if /^\d+$/'
|
||
|
||
本行代码和一例相似，不过匹配的不是一行中有个数字，而是锚定行的开始和结束。正则表达式^\d+$表示匹配在行首和行尾之间的一个或者多个数字。
|
||
|
||
## 107.打印仅仅包含字母的行。
|
||
|
||
perl -ne 'print if /^[[:alpha:]]+$/'
|
||
|
||
本行代码检测是否行中只含有字母，如果是打印出行。此处[[:alpha:]]表示匹配所有的字母。你也可以写为[a-zA-Z]。
|
||
|
||
## 108.隔行打印。
|
||
|
||
perl -ne 'print if $. % 2'
|
||
|
||
本行代码打印第一，三，五，七等等行。因为$. % 2当当然行号为奇数时候返回真，当前行为偶数时候返回false。
|
||
|
||
## 109.从第二行开始隔行打印
|
||
|
||
perl -ne 'print if $. % 2 == 0'
|
||
|
||
本行代码和上一例非常相似，但是打印的不是，1，3，5，7，而是2，4，6，8等偶数行。这由于当行号为偶数时候$. % 2 == 0为真。
|
||
|
||
## 110.打印所有重复的行。
|
||
|
||
perl -ne 'print if ++$a{$_} == 2'
|
||
|
||
本行代码用哈希%a保存了目前为止的所有行，并且计算这些行出现的次数。如果某行出现2次，他就会被打印出，因为此时++$a{$_} == 2为真。如果此行计数多余两次，他不会做任何操作，因为此行已经超过2行，打印检测为false。
|
||
|
||
## 111.不重复的打印所有行
|
||
|
||
perl -ne 'print unless $a{$_}++'
|
||
|
||
此处，只有行的哈希值$a{$_}为0时候才会打印。每一次Perl读进一行，都会将这个值增加1，所以这使得只有之前都没有出现过的行被打印。
|
||
|
||
|
||
|