如何删除两行间含有某关建字的字符

zhenggb

UID: 10352
帖子: 197
积分: 453
在线时间: 2 天 5 小时

1^# zhenggb 发表于 2008-09-28 13:05

如何删除两行间含有某关建字的字符

----------需操作的字符串------------

dn:: sfsfsfsdfsfsdfsfsfs
line: love
line: har

dn:: sfsfsfsdfsfsdfsfsfs
line: man
line: har

dn:: sfsfsfsdfsfsdfsfsfs
line: love
line: har

dn:: sfsfsfsdfsfsdfsfsfs
line: man
line: har

dn:: sfsfsfsdfsfsdfsfsfs
line: man
line: har

dn:: sfsfsfsdfsfsdfsfsfs
line: sdfsd
line: har

-----------------------------------------

我需要把含line: man所在的两行空白行间的字符删除。
我循环执行 s/.* dn:: .*? man .*? \n{2,}/igxs 可以做到，但效率太低（要处理字符很多），请各位强人出手相助！！！！

fengc

UID: 30313
帖子: 67
积分: 154
在线时间: 6 小时

2^# fengc 发表于 2008-09-28 15:08

while (my $s = <>) {
  next unless $s =~ m/^dn::/

  print $s;
  $s = <>;
  next unless $s =~ m/^line: man/;
  print $s;
  $s = <>;
  print $s;
  $s = <>;
  print $s;
}

khandielas

UID: 1557
帖子: 117
积分: 269
在线时间: 19 小时

3^# khandielas 发表于 2008-09-30 09:31

厉害，我都没看明白到底要干什么