《SED 单行脚本快速参考》的 perl 实现

《SED单行脚本快速参考》的perl实现

需要处理文本时,通常我会使用sed或者awk,但我从来没有掌握它们,每次用时都得临时去查怎么使用。最近又碰到一个问题,想把一个html里面所有的css及javascript链接取出来,用sed或awk折腾了半天没有整出来,最后终于放弃了。我决定转向perl,perl是门非常强大的通用语言,但它最初诞生是用于文本处理,因此它处理文本的能力非常强大,并且于它一系列古怪的缩写,使得写命令非常简洁,非常适合一次性的文本处理。perl的与正则表达式的是我非常熟悉,几乎所有的现代编程语言都使用的是perl的正则表达式语法,不像vim,sed,grep等的正则表达式需要那么多转义,十分古怪。至于学习成本,我觉得perl更容易学,通用编程语言大都十分相似,如果有多虑其它语言的编程经历,再学习另外一门编程语言非常容易,perl也不例外,在我开始写这篇文章时,其实只看perl的基本语法,花了大概2个小时,当然写的时间要长得多。相反对于sed,awk仅仅用于面向行的流处理工具,其语法跟通用编程语言有很大差别,理解它的处理模型,并记住它的特殊语法要困难得多。学习perl另外一个好处就是可以看懂别人写的perl代码,有很多优秀的perl源代码。以下基于“《SED单行脚本快速参考》的awk实现”,原文内容保留,以便对比。

文本间隔:

#在每一行后面增加一空行

sed G
awk '{printf("%s\n\n",$0)}'
perl -ne 'print "$_\n"'
perl -pe '$_ .= "\n"'
perl -pe '$\="\n"'

#将原来的所有空行删除并在每一行后面增加一空行。

#这样在输出的文本中每一行后面将有且只有一空行。

sed '/^$/d;G'
awk '!/^$/{printf("%s\n\n",$0)}'
perl -ne 'print "$_\n" unless /^$/'

#在每一行后面增加两行空行

sed 'G;G'
awk '{printf("%s\n\n\n",$0)}'
perl -ne 'print "$_\n\n"'
perl -pe '$_ .= "\n\n"'

#将第一个脚本所产生的所有空行删除(即删除所有偶数行)

sed 'n;d'
awk '{f=!f;if(f)print $0}'
perl -ne 'print if $.%2'
perl -pe '$_="" if $.%2'

#在匹配式样“regex”的行之前插入一空行

sed '/regex/{x;p;x;}'
awk '{if(/regex/)printf("\n%s\n",$0);else print $0}'
perl -pe 'print "\n" if /regex/'

#在匹配式样“regex”的行之后插入一空行

sed '/regex/G'
awk '{if(/regex/)printf("%s\n\n",$0);else print $0}'
perl -ne 'print; print "\n" if /regex/'
perl -pe '$_ .= "\n" if /regex/'

#在匹配式样“regex”的行之前和之后各插入一空行

sed '/regex/{x;p;x;G;}'
awk '{if(/regex/)printf("\n%s\n\n",$0);else print $0}'
perl -pe 's/.*regex.*/\n$_/'
perl -pe '$_ = "\n$_\n" if /regex/'

编号:

#为文件中的每一行进行编号(简单的左对齐方式)。这里使用了“制表符”

#(tab,见本文末尾关于’\t’的用法的描述)而不是空格来对齐边缘。

sed = filename | sed 'N;s/\n/\t/'
awk '{i++;printf("%d\t%s\n",i,$0)}'
perl -pe 'print "$.\t"'
perl -pe '$_ = "$.\t$_"'

#对文件中的所有行编号(行号在左,文字右端对齐)。

sed = filename | sed 'N; s/^/     /; s/ *\(.\{6,\}\)\n/\1  /'
awk '{i++;printf("%6d  %s\n",i,$0)}'
perl -pe 'printf "%6d ", $.'

#对文件中的所有行编号,但只显示非空白行的行号。

sed '/./=' filename | sed '/./N; s/\n/ /'
awk '{i++;if(!/^$/)printf("%d %s\n",i,$0);else print}'
perl -pe 'print "$. " unless /^$/'

#计算行数(模拟“wc-l”)

sed -n '$='
awk '{i++}END{print i}'
perl -nle 'END { print $.}'

文本转换和替代:

#Unix环境:转换DOS的新行符(CR/LF)为Unix格式。

sed 's/.$//'                     # 假设所有行以CR/LF结束
sed 's/^M$//'                    # 在bash/tcsh中,将按Ctrl-M改为按Ctrl-V
sed 's/\x0D$//'                  # ssed、gsed 3.02.80,及更高版本
awk '{sub(/\x0D$/,"");print $0}'
perl -pe 's/\r$//'

#Unix环境:转换Unix的新行符(LF)为DOS格式。

sed "s/$/`echo -e \\\r`/"        # 在ksh下所使用的命令
sed 's/$'"/`echo \\\r`/"         # 在bash下所使用的命令
sed "s/$/`echo \\\r`/"           # 在zsh下所使用的命令
sed 's/$/\r/'                    # gsed 3.02.80 及更高版本
awk '{printf("%s\r\n",$0)}'
perl -pe 's/$/\r/'

#DOS环境:转换Unix新行符(LF)为DOS格式。

sed "s/$//"                      # 方法 1
sed -n p                         # 方法 2

DOS环境的略过

#DOS环境:转换DOS新行符(CR/LF)为Unix格式。

#下面的脚本只对UnxUtilssed4.0.7及更高版本有效。要识别UnxUtils版本的

#sed可以通过其特有的“–text”选项。你可以使用帮助选项(“–help”)看

#其中有无一个“–text”项以此来判断所使用的是否是UnxUtils版本。其它DOS

#版本的的sed则无法进行这一转换。但可以用“tr”来实现这一转换。

sed "s/\r//" infile >outfile     # UnxUtils sed v4.0.7 或更高版本
tr -d \r <infile >outfile        # GNU tr 1.22 或更高版本

DOS环境的略过

#将每一行前导的“空白字符”(空格,制表符)删除

#使之左对齐

sed 's/^[ \t]*//'                # 见本文末尾关于'\t'用法的描述
awk '{sub(/^[ \t]+/,"");print $0}'
perl -ple 's/^\s+//'

#将每一行拖尾的“空白字符”(空格,制表符)删除

sed 's/[ \t]*$//'                # 见本文末尾关于'\t'用法的描述
awk '{sub(/[ \t]+$/,"");print $0}'
perl -ple 's/\s+$//'

#将每一行中的前导和拖尾的空白字符删除

sed 's/^[ \t]*//;s/[ \t]*$//'
awk '{sub(/^[ \t]+/,"");sub(/[ \t]+$/,"");print $0}'
perl -ple 's/\s+(.*)\s+$/\1/'

#在每一行开头处插入5个空格(使全文向右移动5个字符的位置)

sed 's/^/     /'
awk '{printf("     %s\n",$0)}'
perl -pe 'print " "x5'

#以79个字符为宽度,将所有文本右对齐

#78个字符外加最后的一个空格

sed -e :a -e 's/^.\{1,78\}$/ &/;ta'
awk '{printf("%79s\n",$0)}'
perl -ne 'printf "%80s", $_'

#以79个字符为宽度,使所有文本居中。在方法1中,为了让文本居中每一行的前

#头和后头都填充了空格。在方法2中,在居中文本的过程中只在文本的前面填充

#空格,并且最终这些空格将有一半会被删除。此外每一行的后头并未填充空格。

sed  -e :a -e 's/^.\{1,77\}$/ & /;ta'                     # 方法1
sed  -e :a -e 's/^.\{1,77\}$/ &/;ta' -e 's/\( *\)\1/\1/'  # 方法2
awk '{for(i=0;i<39-length($0)/2;i++)printf(" ");printf("%s\n",$0)}'  #相当于上面的方法二
perl -pe 'print " " x (40-(length)/2)'                    # 方法2

#在每一行中查找字串“foo”,并将找到的“foo”替换为“bar”

sed 's/foo/bar/'                 # 只替换每一行中的第一个“foo”字串
sed 's/foo/bar/4'                # 只替换每一行中的第四个“foo”字串
sed 's/foo/bar/g'                # 将每一行中的所有“foo”都换成“bar”
sed 's/\(.*\)foo\(.*foo\)/\1bar\2/' # 替换倒数第二个“foo”
sed 's/\(.*\)foo/\1bar/'            # 替换最后一个“foo”
awk '{gsub(/foo/,"bar");print $0}'   # 将每一行中的所有“foo”都换成“bar”
perl -pe 's/foo/bar/'                # 只替换每一行中的第一个“foo”字串
perl -pe 's/foo/bar/g'               # 将每一行中的所有“foo”都换成“bar” 
perl -pe 's/(.*)foo(.*foo)/\1bar\2/' # 替换倒数第二个“foo”
perl -pe 's/(.*)foo/\1bar/'            # 替换最后一个“foo”

#只在行中出现字串“baz”的情况下将“foo”替换成“bar”

sed '/baz/s/foo/bar/g'
awk '{if(/baz/)gsub(/foo/,"bar");print $0}'
perl -pe 's/foo/bar/g if /baz/'

#将“foo”替换成“bar”,并且只在行中未出现字串“baz”的情况下替换

sed '/baz/!s/foo/bar/g'
awk '{if(/baz$/)gsub(/foo/,"bar");print $0}'
perl -pe 's/foo/bar/g unless /baz/'

#不管是“scarlet”“ruby”还是“puce”,一律换成“red”

sed 's/scarlet/red/g;s/ruby/red/g;s/puce/red/g'  #对多数的sed都有效
gsed 's/scarlet\|ruby\|puce/red/g'               # 只对GNU sed有效
awk '{gsub(/scarlet|ruby|puce/,"red");print $0}'
perl -pe 's/scarlet|ruby|puce/red/g'

#倒置所有行,第一行成为最后一行,依次类推(模拟“tac”)。

#由于某些原因,使用下面命令时HHsedv1.5会将文件中的空行删除

sed '1!G;h;$!d'               # 方法1
sed -n '1!G;h;$p'             # 方法2
awk '{A[i++]=$0}END{for(j=i-1;j>=0;j--)print A[j]}'
perl -e 'print reverse <>'

#将行中的字符逆序排列,第一个字成为最后一字,……(模拟“rev”)

sed '/\n/!G;s/\(.\)\(.*\n\)/&\2\1/;//D;s/.//'
awk '{for(i=length($0);i>0;i--)printf("%s",substr($0,i,1));printf("\n")}'
perl -ple '$_=scalar reverse'

#将每两行连接成一行(类似“paste”)

sed '$!N;s/\n/ /'
awk '{f=!f;if(f)printf("%s",$0);else printf(" %s\n",$0)}'
perl -pe 's/\n/ / if $.%2'

#如果当前行以反斜杠“\”结束,则将下一行并到当前行末尾

#并去掉原来行尾的反斜杠

sed -e :a -e '/\\$/N; s/\\\n//; ta'
awk '{if(/\\$/)printf("%s",substr($0,0,length($0)-1));else printf("%s\n",$0)}'
perl -pe 's/\\\n//'

#如果当前行以等号开头,将当前行并到上一行末尾

#并以单个空格代替原来行头的“=”

sed -e :a -e '$!N;s/\n=/ /;ta' -e 'P;D'
awk '{if(/^=/)printf(" %s",substr($0,2));else printf("%s%s",a,$0);a="\n"}END{printf("\n")}'
perl -0777pe 's/\n=/ /'

#为数字字串增加逗号分隔符号,将“1234567”改为“1,234,567”

gsed ':a;s/\B[0-9]\{3\}\>/,&/;ta'                     # GNU sed
sed -e :a -e 's/\(.*[0-9]\)\([0-9]\{3\}\)/\1,\2/;ta'  # 其他sed
#awk的正则没有后向匹配和引用,搞的比较狼狈,呵呵。
awk '{while(match($0,/[0-9][0-9][0-9][0-9]+/)){$0=sprintf("%s,%s",substr($0,0,RSTART+RLENGTH-4),substr($0,RSTART+RLENGTH-3))}print $0}'
perl -pe 's/(\d)(?=(\d{3})+\b)/\1,/g'

#为带有小数点和负号的数值增加逗号分隔符(GNUsed)

gsed -r ':a;s/(^|[^0-9.])([0-9]+)([0-9]{3})/\1\2,\3/g;ta'
#和上例差不多
awk '{while(match($0,/[^\.0-9][0-9][0-9][0-9][0-9]+/)){$0=sprintf("%s,%s",substr($0,0,RSTART+RLENGTH-4),substr($0,RSTART+RLENGTH-3))}print $0}'
# 这是我写的最复杂的正则表达式
perl -pe 's/(\d)((?=(\d{3}){2,}\.\d)|(\d{3}\.\d+)|(?=(\d{3})+\D))/\1,\2/g'

#在每5行后增加一空白行(在第5,10,15,20,等行后增加一空白行)

gsed '0~5G'                      # 只对GNU sed有效
sed 'n;n;n;n;G;'                 # 其他sed
awk '{print $0;i++;if(i==5){printf("\n");i=0}}'
perl -pe '$_.="\n" if $.%5==0'

选择性地显示特定行:

#显示文件中的前10行(模拟“head”的行为)

sed 10q
awk '{print;if(NR==10)exit}'
perl -pe 'last if $.==11'

#显示文件中的第一行(模拟“head-1”命令)

sed q
awk '{print;exit}'
perl -ne 'print;exit'
perl -pe 'last if $.==2'

#显示文件中的最后10行(模拟“tail”)

sed -e :a -e '$q;N;11,$D;ba'
#用awk干这个有点亏,得全文缓存,对于大文件肯定很慢
awk '{A[NR]=$0}END{for(i=NR-9;i<=NR;i++)print A[i]}'
perl -e '@A=<>;print @A[-10..-1]'

#显示文件中的最后2行(模拟“tail-2”命令)

sed '$!N;$!D'
awk '{A[NR]=$0}END{for(i=NR-1;i<=NR;i++)print A[i]}'
perl -e '@A=<>;print @A[-2..-1]'

#显示文件中的最后一行(模拟“tail-1”)

sed '$!d'                        # 方法1
sed -n '$p'                      # 方法2
#这个比较好办,只存最后一行了。
awk '{A=$0}END{print A}'
perl -e '@A=<>;print @A[-1]'
perl -ne '$t=$_;END{print $t}'

#显示文件中的倒数第二行

sed -e '$!{h;d;}' -e x              # 当文件中只有一行时,输出空行
sed -e '1{$q;}' -e '$!{h;d;}' -e x  # 当文件中只有一行时,显示该行
sed -e '1{$d;}' -e '$!{h;d;}' -e x  # 当文件中只有一行时,不输出
#存两行呗(当文件中只有一行时,输出空行)
awk '{B=A;A=$0}END{print B}'
perl -e '@A=<>;print @A[-2]'

#只显示匹配正则表达式的行(模拟“grep”)

sed -n '/regexp/p'               # 方法1
sed '/regexp/!d'                 # 方法2
awk '/regexp/{print}'
perl -ne 'print if /regexp/'

#只显示“不”匹配正则表达式的行(模拟“grep-v”)

sed -n '/regexp/!p'              # 方法1,与前面的命令相对应
sed '/regexp/d'                  # 方法2,类似的语法
awk '!/regexp/{print}'
perl -ne 'print unless /regexp/'

#查找“regexp”并将匹配行的上一行显示出来,但并不显示匹配行

sed -n '/regexp/{g;1!p;};h'
awk '/regexp/{print A}{A=$0}'
perl -ne 'print $t if /regexp/;$t=$_'

#查找“regexp”并将匹配行的下一行显示出来,但并不显示匹配行

sed -n '/regexp/{n;p;}'
awk '{if(A)print;A=0}/regexp/{A=1}'
perl -ne 'print scalar <> if /regexp/'

#显示包含“regexp”的行及其前后行,并在第一行之前加上“regexp”所在行的行号(类似“grep-A1-B1”)

sed -n -e '/regexp/{=;x;1!p;g;$!N;p;D;}' -e h
awk '{if(F)print;F=0}/regexp/{print NR;print b;print;F=1}{b=$0}'
perl -ne 'if($M){print $.-1 ."\n$L0$L1$_"};$M=/regexp/;$L0,$L1=$L1,$_'

#显示包含“AAA”、“BBB”和“CCC”的行(任意次序)

sed '/AAA/!d; /BBB/!d; /CCC/!d'   # 字串的次序不影响结果
awk '{if(match($0,/AAA/) && match($0,/BBB/) && match($0,/CCC/))print}'
perl -ne 'print if /AAA/ && /BBB/ && /CCC/'

#显示包含“AAA”、“BBB”和“CCC”的行(固定次序)

sed '/AAA.*BBB.*CCC/!d'
awk '{if(match($0,/AAA.*BBB.*CCC/))print}'
perl -ne 'print if /AAA.*BBB.*CCC/'

#显示包含“AAA”“BBB”或“CCC”的行(模拟“egrep”)

sed -e '/AAA/b' -e '/BBB/b' -e '/CCC/b' -e d    # 多数sed
gsed '/AAA\|BBB\|CCC/!d'                        # 对GNU sed有效
awk '/AAA/{print;next}/BBB/{print;next}/CCC/{print}'
awk '/AAA|BBB|CCC/{print}'
perl -ne 'print if /AAA|BBB|CCC/'

#显示包含“AAA”的段落(段落间以空行分隔)

#HHsedv1.5必须在“x;”后加入“G;”,接下来的3个脚本都是这样

sed -e '/./{H;$!d;}' -e 'x;/AAA/!d;'
awk 'BEGIN{RS=""}/AAA/{print}'
awk -vRS= '/AAA/{print}'
perl -00ne 'print if /AAA/'

#显示包含“AAA”“BBB”和“CCC”三个字串的段落(任意次序)

sed -e '/./{H;$!d;}' -e 'x;/AAA/!d;/BBB/!d;/CCC/!d'
awk -vRS= '{if(match($0,/AAA/) && match($0,/BBB/) && match($0,/CCC/))print}'
perl -00ne 'print if /AAA/ && /BBB/ && /CCC/'

#显示包含“AAA”、“BBB”、“CCC”三者中任一字串的段落(任意次序)

sed -e '/./{H;$!d;}' -e 'x;/AAA/b' -e '/BBB/b' -e '/CCC/b' -e d
gsed '/./{H;$!d;};x;/AAA\|BBB\|CCC/b;d'         # 只对GNU sed有效
awk -vRS= '/AAA|BBB|CCC/{print "";print}'
perl -00ne 'print if /AAA|BBB|CCC/'

#显示包含65个或以上字符的行

sed -n '/^.\{65\}/p'
cat ll.txt | awk '{if(length($0)>=65)print}'
perl -ne 'print if /.{65}/'
perl -nle 'print if /.{65}/'

#显示包含65个以下字符的行

sed -n '/^.\{65\}/!p'            # 方法1,与上面的脚本相对应
sed '/^.\{65\}/d'                # 方法2,更简便一点的方法
awk '{if(length($0)<=65)print}'
perl -nle 'print unless /.{65}/'

#显示部分文本——从包含正则表达式的行开始到最后一行结束

sed -n '/regexp/,$p'
awk '/regexp/{F=1}{if(F)print}'
perl -ne 'print if /regex/..0'

#显示部分文本——指定行号范围(从第8至第12行,含8和12行)

sed -n '8,12p'                   # 方法1
sed '8,12!d'                     # 方法2
awk '{if(NR>=8 && NR<12)print}'
perl -ne 'print if 8..12'

#显示第52行

sed -n '52p'                     # 方法1
sed '52!d'                       # 方法2
sed '52q;d'                      # 方法3, 处理大文件时更有效率
awk '{if(NR==52){print;exit}}'
perl -ne 'print if 52..52'
perl -ne 'print if $.==52'

#从第3行开始,每7行显示一次

gsed -n '3~7p'                   # 只对GNU sed有效
sed -n '3,${p;n;n;n;n;n;n;}'     # 其他sed
awk '{if(NR==3)F=1}{if(F){i++;if(i%7==1)print}}'
perl -ne 'print if $.%7==3'

#显示两个正则表达式之间的文本(包含)

sed -n '/Iowa/,/Montana/p'       # 区分大小写方式
awk '/Iowa/{F=1}{if(F)print}/Montana/{F=0}'
perl -ne 'print if /Iowa/../Montana/'

选择性地删除特定行:

#显示通篇文档,除了两个正则表达式之间的内容

sed'/Iowa/,/Montana/d'

awk'/Iowa/{F=1}{if(!F)print}/Montana/{F=0}'

perl-ne'printunless/Iowa/../Montana/'

#删除文件中相邻的重复行(模拟“uniq”)

#只保留重复行中的第一行,其他行删除

sed '$!N; /^\(.*\)\n\1$/!P; D'
awk '{if($0!=B)print;B=$0}'
perl -ne 'print unless $_ eq $t;$t=$_'

#删除文件中的重复行,不管有无相邻。注意holdspace所能支持的缓存大小,或者使用GNUsed。

sed -n 'G; s/\n/&&/; /^\([ -~]*\n\).*\n\1/d; s/\n//; h; P'  #bones7456注:我这里此命令并不能正常工作
awk '{if(!($0 in B))print;B[$0]=1}'
perl -ne 'print if !$H{$_};$H{$_}=1'

#删除除重复行外的所有行(模拟“uniq-d”)

sed '$!N; s/^\(.*\)\n\1$/\1/; t; D'
awk '{if($0==B && $0!=l){print;l=$0}B=$0}'
perl -ne 'print if $_ eq $t;$t=$_'

#删除文件中开头的10行

sed '1,10d'
awk '{if(NR>10)print}'
perl -ne 'print if 11..0'

#删除文件中的最后一行

sed '$d'
#awk在过程中并不知道文件一共有几行,所以只能通篇缓存,大文件可能不适合,下面两个也一样
awk '{B[NR]=$0}END{for(i=0;i<=NR-1;i++)print B[i]}'
perl -e '@A=<>;print @A[0..$#A-1]'

#删除文件中的最后两行

sed 'N;$!P;$!D;$d'
awk '{B[NR]=$0}END{for(i=0;i<=NR-2;i++)print B[i]}'
perl -e '@A=<>;print @A[0..$#A-2]'

#删除文件中的最后10行

sed -e :a -e '$d;N;2,10ba' -e 'P;D'   # 方法1
sed -n -e :a -e '1,10!{P;N;D;};N;ba'  # 方法2
awk '{B[NR]=$0}END{for(i=0;i<=NR-10;i++)print B[i]}'
perl -e '@A=<>;print @A[0..$#A-10]'

#删除8的倍数行

gsed '0~8d'                           # 只对GNU sed有效
sed 'n;n;n;n;n;n;n;d;'                # 其他sed
awk '{if(NR%8!=0)print}' |head
perl -ne 'print if $.%8'

#删除匹配式样的行

sed '/pattern/d'                      # 删除含pattern的行。当然pattern可以换成任何有效的正则表达式
awk '{if(!match($0,/pattern/))print}'
perl -ne 'print unless /pattern/'

#删除文件中的所有空行(与“grep‘.’”效果相同)

sed '/^$/d'                           # 方法1
sed '/./!d'                           # 方法2
awk '{if(!match($0,/^$/))print}'
perl -ne 'print if /./'

#只保留多个相邻空行的第一行。并且删除文件顶部和尾部的空行。

#(模拟“cat-s”)

sed '/./,/^$/!d'        #方法1,删除文件顶部的空行,允许尾部保留一空行
sed '/^$/N;/\n$/D'      #方法2,允许顶部保留一空行,尾部不留空行
awk '{if(!match($0,/^$/)){print;F=1}else{if(F)print;F=0}}'  #同上面的方法2
perl -00 -pe ''         #方法2

#只保留多个相邻空行的前两行。

sed '/^$/N;/\n$/N;//D'
awk '{if(!match($0,/^$/)){print;F=0}else{if(F<2)print;F++}}'
perl -ne 'if(/^$/){$N++}else{$N=0};print if $N<=2'

#删除文件顶部的所有空行

sed '/./,$!d'
awk '{if(F || !match($0,/^$/)){print;F=1}}'
perl -ne 'if(/./ && !$N){$N=1};print if $N'

#删除文件尾部的所有空行

sed -e :a -e '/^\n*$/{$d;N;ba' -e '}'  # 对所有sed有效
sed -e :a -e '/^\n*$/N;/\n$/ba'        # 同上,但只对 gsed 3.02.*有效
awk '/^.+$/{for(i=l;i<NR-1;i++)print "";print;l=NR}'

#删除每个段落的最后一行

sed -n '/^$/{p;h;};/./{x;/./p;}'
#很长,很ugly,应该有更好的办法
awk -vRS= '{B=$0;l=0;f=1;while(match(B,/\n/)>0){print substr(B,l,RSTART-l-f);l=RSTART;sub(/\n/,"",B);f=0};print ""}'
#sed版本不正确,perl版本会删除最后一个段落的所有空行
perl -ne 'if(/./){$N-- if $N>1;print "\n"x$N.$_;$N=0}else{$N++}'

特殊应用:

#移除手册页(manpage)中的nroff标记。在UnixSystemV或bashshell下使

#用’echo’命令时可能需要加上-e选项。

sed "s/.`echo \\\b`//g"    # 外层的双括号是必须的(Unix环境)
sed 's/.^H//g'             # 在bash或tcsh中, 按 Ctrl-V 再按 Ctrl-H
sed 's/.\x08//g'           # sed 1.5,GNU sed,ssed所使用的十六进制的表示方法
awk '{gsub(/.\x08/,"",$0);print}'
perl -pe 's/\b//g'

#提取新闻组或e-mail的邮件头

sed '/^$/q'                # 删除第一行空行后的所有内容
awk '{print}/^$/{exit}'
perl -pe 'exit if /^$/'     # 不会保留空行

#提取新闻组或e-mail的正文部分

sed '1,/^$/d'              # 删除第一行空行之前的所有内容
awk '{if(F)print}/^$/{F=1}'
perl -ne 'print if /^$/..0' # 这会保留第一行空行

#从邮件头提取“Subject”(标题栏字段),并移除开头的“Subject:”字样

sed '/^Subject: */!d; s///;q'
awk '/^Subject:.*/{print substr($0,10)}/^$/{exit}'
perl -ne 'print if s/^Subject: (.*)/\1/'

#从邮件头获得回复地址

sed '/^Reply-To:/q; /^From:/h; /./d;g;q'
#好像是输出第一个Reply-To:开头的行?From是干啥用的?不清楚规则。。
awk '/^Reply-To:.*/{print;exit}/^$/{exit}'
#实际是:有Reply-To:显示Reply-To行,否则没有Reply-To但有From:则显示From行
perl -ne 'if (/^Reply-To:/){print;exit};$F=$_ if /^From:/;print $F if /^$/'
perl -ne '$H{"R"}=$_ if /^Reply-To:/;$H{"F"}=$_ if /^From:/;END { print ($H{"R"} or $H{"F"}) }'
perl -ne '$H{substr($1,0,1)}=$_ if /^(Reply-To|From):/;END{print ($H{"R"} or $H{"F"})}'

#获取邮件地址。在上一个脚本所产生的那一行邮件头的基础上进一步的将非电邮地址的部分剃除。(见上一脚本)

sed 's/ *(.*)//; s/>.*//; s/.*[:<] *//'
#取尖括号里的东西吧?
awk -F'[<>]+' '{print $2}'
#取冒号后内容: 有<...>只取尖括号中内容, 不取(...)中内容。
#From: aaaa<bbbb> => bbbb, From: aaaa => aaaa
perl -pe 's/ *\(.*\)//; s/>.*//; s/.*[:<] *//'   # 直接仿照sed版本

#在每一行开头加上一个尖括号和空格(引用信息)

sed 's/^/> /'
awk '{print "> " $0}'
perl -pe 's/^/> /'

#将每一行开头处的尖括号和空格删除(解除引用)

sed 's/^> //'
awk '/^> /{print substr($0,3)}'
perl -pe 's/^> //'

#移除大部分的HTML标签(包括跨行标签)

sed -e :a -e 's/<[^>]*>//g;/</N;//ba'
awk '{gsub(/<[^>]*>/,"",$0);print}'
perl -pe 's/<[^>]*>//g'

#将分成多卷的uuencode文件解码。移除文件头信息,只保留uuencode编码部分。

#文件必须以特定顺序传给sed。下面第一种版本的脚本可以直接在命令行下输入;

#第二种版本则可以放入一个带执行权限的shell脚本中。(由RahulDhesi的一

#个脚本修改而来。)

sed '/^end/,/^begin/d' file1 file2 ... fileX | uudecode   # vers. 1
sed '/^end/,/^begin/d' "$@" | uudecode                    # vers. 2
#我不想装个uudecode验证,大致写个吧
awk '/^end/{F=0}{if(F)print}/^begin/{F=1}' file1 file2 ... fileX
perl -ne 'print unless /^end/../^begin/'

#将文件中的段落以字母顺序排序。段落间以(一行或多行)空行分隔。GNUsed使用

#字元“\v”来表示垂直制表符,这里用它来作为换行符的占位符——当然你也可以

#用其他未在文件中使用的字符来代替它。

sed '/./{H;d;};x;s/\n/={NL}=/g' file | sort | sed '1s/={NL}=//;s/={NL}=/\n/g'
gsed '/./{H;d};x;y/\n/\v/' file | sort | sed '1s/\v//;y/\v/\n/'
awk -vRS= '{gsub(/\n/,"\v",$0);print}' ll.txt | sort | awk '{gsub(/\v/,"\n",$0);print;print ""}'
# 上面的版本在我的机器上不能运行,我是按照我的理解来吧
perl -00e '@A=<>; print sort @A'    # 有个缺陷,它要求最后一行以空行结束

总的来说,大部分命令perl比awk还要短,再加上我在文章开头说的那些优势,我认为perl可以完全替换awk。sed很短,这是因为它的命令都只由单个字符所组成,所以别看它看很短,实际上可能是好多条命令的组合,写sed命令其实很复杂,很多时候还需要一些奇技淫巧。更不必说上面的对比对awk和perl并不公平,因为它充分地利用了sed的特性,相反更多awk和perl的特性都没有用到,一条很简单的awk命令,awk'{print$7}'在sed中就非常复杂。sed和awk的优势是它在unix平台上随处可得,而perl就相对少一些,但是很多机器默认都带了perl,对于个人使用,这这种优势微不足道。

ps.我在此这篇文章时用到文本处理需要,要将所有代码包含在"[code]...[/code]"中,所有code可以认为以sed或者gsed开头,可以用下面的perl代码来完成:

perl -00nle 'if (/^g?sed/) { print "[ code]\n${_}\n[ /code]"}else{print}'

ps.javaeye的格式化做得很不好,如果我不指定代码格式,就不要将的代码格式默认显示为java,开始的“XXXX代码:"显得很多余,难道读者还不能从上下文辩认出这是用什么语言写的吗?

相关推荐