论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 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

白手起家

论坛徽章:: 0

2楼 [报告]

发表于 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;
}

[ 本帖最后由 fengc 于 2008-9-28 15:10 编辑 ]

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

khandielas

稍有积蓄

论坛徽章:: 0

3楼 [报告]

发表于 2008-09-30 09:31 |只看该作者

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

实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？

返回列表

Chinaunix › 论坛 › 程序设计 › Perl › 如何删除两行间含有某关建字的字符

如何删除两行间含有某关建字的字符 [复制链接]

浏览过的版块