将文件的匹配行以及它的上下各3行填上注释

sunzhiguolu

Herowinter 发表于 2016-06-16 14:12
回复 16# 18800375280
前3行有没有可能出现xxoo，会的话有些代码要改一下的。

1. perl -ne '{if(/xxoo/){@a[($.-4<0?0:$.-4)..($.+2)]=(1)x7}$b[$.-1]=$_}END{for(0..$#b){$a[$_]?print"#$b[$_]":print"$b[$_]"}}' f

复制代码

总感觉 xxoo 所在行上下文如果少于 3 行的独立空间的话, 这种编码意义不是很大, 倒不如干脆点 将每行的行首直接替换成 # 字符即可.

Herowinter

回复 21# sunzhiguolu

我只是随便问一下，可以假设总存在上下3行，
awk代码应该没有任何问题的。
   

sunzhiguolu

Herowinter 发表于 2016-06-16 14:43
回复 21# sunzhiguolu

我只是随便问一下，可以假设总存在上下3行，

假设的好, 说的有理 上楼已改正 多谢大神指点...

18800375280

回复 22# Herowinter


    不好意思，我忘记注明了，xxoo上下文总会存在3行，我的错

18800375280

回复 21# sunzhiguolu


    好使，perl大神666！

18800375280

回复 17# reyleon


    碉堡了

18800375280

回复 19# moperyblue


    把模式空间的多行中，行首是^,行尾是$, 等价于非多行模式的\n（相对^）.*\n(相当于\$)。

liion631818

1. sed -nr '/xxoo/{x;s/(.*\n)(.*\n)(.*\n)(.*)/\1#\2#\3#\4/p;g;N;N;N;s/(.*\n)(.*\n)(.*\n)(.*)/#\1#\2#\3#\4/p;n;h;d;};H;${g;p}'

复制代码

回复 1# 18800375280


   

18800375280

回复 28# liion631818


    辛苦了，写了这么长的代码，有一点小bug就是文件第一行多出来一个空行

Riet

话说这样可以么

grep -A3 -B3 "xxoo" file | sed -r s"/(\S+)/#\1/"

好像 需求理解错了，以为只要注释。忽略吧。