怎样根据格式筛选输出连续的行

wsxcn1230

数据是类似这样的结构
#no
no
@no
@no
no
#no
@yes
@yes
no
@no

no的是我不要的行，yes的才要
逻辑是，遇到#开头的行，输出之后连续的@开头的行，中断了的话之后@开头的行也不要。

zxy877298415

1. awk -vRS="#" 'NR>1{for(i=1;i<=NF;i++) {if($i~"@"&&$(i+1)~"@") {if(!t) {t=$i} else t=t"\n"$i;} if($i~"@"&&$(i+1)!~"@") {t=t"\n"$i;break} } print t"\n";t=""}' file

复制代码

回复 1# wsxcn1230


   

jason680

回复 1# wsxcn1230

$ awk '/#/{P=1;next}/@/&&P{print;next}{P=0}' FILE
@yes
@yes

   

sunzhiguolu

回复 3# jason680
大神能否提供一个 perl 版本的, 这个问题感觉太难了, 不会写代码. 谢谢...

   

jason680

回复 4# sunzhiguolu

$ awk '/#/{P=1;next}/@/&&P{print;next}{P=0}' FILE

$ perl -lane '{$P=1,next if(m/#/);print,next if(m/@/&&$P);$P=0}' FILE
@yes
@yes

   

sunzhiguolu

回复 5# jason680
有3个问题向您请教:
1.> if 倒装句允许使用类似 => print,next
2.> 脚本最外围的一对花括号起到什么作用
3.> -a 有作用吗, 在这个程序中

   

sunzhiguolu

回复 2# zxy877298415
试了下, 结果不对...
输出:
---------------------------
@no
@no

@yes
@yes

   

sunzhiguolu

回复 5# jason680
大神, 好像得不到正确的结果:

#no
no
@no
@no
no
#no
@yes
no
@yes
@no

   

zxy877298415

回复 7# sunzhiguolu
awk -vRS="#" 'NR>1{for(i=1;i<=NF;i++) {if($i~"@"&&$(i+1)~"@"&&$i!~"no") {if(!t) {t=$i} else t=t"\n"$i;} if($i~"@"&&$(i+1)!~"@"&&$i!~"no") {t=t"\n"$i;break} } print t;t=""}' file


   

sunzhiguolu

回复 9# zxy877298415
试了下, 正确. 谢谢大神!