如何用sed或awk实现匹配值行及上下多行的删除？

ywlscpl

1. awk '{v="fffff";a[NR]=$0}END{for (i=1;i<=NR;i++) {if (a[i+3]~v||a[i+2]~v||a[i+1]~v||a[i]~v||a[i-1]~v||a[i-2]~v) continue;print a[i]}}' file

复制代码

chris_zhu

回复 10# cxfcxf

刚测试了grep，有点问题的

这个我再试试，谢谢

blackold

sed:

1. $ sed ':n;/ffff[^\n]*$/{$!N;$!N;d};/\n.*\n.*\n/!{N;bn};P;D' urfile
   

复制代码

awk:

1. 
   
2. $ awk -v RS='([^\n]*\n)?([^\n]*\n)?([^\n]*\n)?[^\n]*ffff[^\n]*\n([^\n]*\n)?([^\n]*\n)?' -v ORS= 1 urfile
   

复制代码

测试样本：

ffff
"不要崇拜哥哥戴绿帽了"
烟草局猛女谭xx的丈夫
aaaaaaaa
bbbbbbbb
cccccccc
dddddddd
eeeeeeee
ffffffff
gggggggg
hhhhhhhh
iiiiiiii
jjjjjjjj

11111111
22222222
33333333
44444444
55555555
ffffffff
66666666
77777777
ffff
foo
bar
hello word
a line again
88888888
99999999
ffff

cxfcxf

回复  cxfcxf

刚测试了grep，有点问题的

这个我再试试，谢谢
chris_zhu 发表于 2010-03-02 11:58

那个需要修改一下- -.....因为你是前3 后2
就是
$f = $index -3
$b = $index + 2
这个range.....

chris_zhu

回复 14# cxfcxf

了解～
my @array = <DATA>;
perl不会，怎么把<DATA>变成个文件变量输入啊

chris_zhu

回复 13# blackold

请教黑哥：
$ sed ':n;/ffff[^\n]*$/{$!N;$!N;d};/\n.*\n.*\n/!{N;bn};D' urfile

能否解释下啊，比如删除前面几行的 是又哪个控制的呢？
{$!N;$!N;d};这个是否删除下面2行，3行就是{$!N;$!N;$!N;d};
删除上面几行是哪个控制的呢？比如3行变4行怎么改？

chris_zhu

回复 16# chris_zhu
知道了，/\n.*\n.*\n.*\n/是这个控制的，sed看起来简洁点
谢谢各位了

nuclearxin

my ( $index ) = grep { $array[$_] =~ /hello/ } 0 .. $#array;
怎么解释？

nuclearxin

回复 10# cxfcxf
有超过一个关键字key 怎么办

cxfcxf

吧<DATA>改成<> 然后在脚本后面根 要处理的文件


to楼上

多个key的话 写一个for删呀...
吧key写成一个@key这样...
然后每次对文件处理一个key

至于上面那个据 你可以看看perl grep的用法