一个头痛的regular expression问题 - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Programming - 葵花宝典

一个头痛的regular expression问题

一个头痛的regular expression问题# Programming - 葵花宝典

p*w2009-08-27 07:08

1 楼

探亲妈妈，勤劳能干，想寻找做饭料理家务的工作，时间灵活，波士顿framingham 到
newton 靠9号路的家庭最好。电话： 508－395－0492

s*n2009-08-27 07:08

2 楼

【以下文字转载自 Linux 讨论区】
发信人: sallen (looking for job), 信区: Linux
标题: 一个头痛的regular expression问题
发信站: BBS 未名空间站 (Thu Aug 27 01:27:26 2009, 美东)
这个问题我想了很长时间，还是没有解决办法。请高手指点一下。
我有一个logfile格式如下
send ........
send ........
................
............
send..........
...................
................
send..........
heartbeat..........
...............
send........
...........
.........
send..........
send.........
send..........
heartbeat..........
....
send...
.....
heatbeat....
....
我现在想找出所有的在heartb

o*o2009-08-27 07:08

3 楼

这还要什么regular expression呀？
egrep '^send|^heartbeat' logfile

【在 s****n 的大作中提到】

: 【以下文字转载自 Linux 讨论区】
: 发信人: sallen (looking for job), 信区: Linux
: 标题: 一个头痛的regular expression问题
: 发信站: BBS 未名空间站 (Thu Aug 27 01:27:26 2009, 美东)
: 这个问题我想了很长时间，还是没有解决办法。请高手指点一下。
: 我有一个logfile格式如下
: send ........
: send ........
: ................
: ............

j*a2009-08-27 07:08

4 楼

#!/usr/bin/perl
open FILE, "logfile" or die "Couldn't open file: $!";
my $string;
while () {
$string .= $_;
}
close FILE;
$string =~ s/(send.*\n)+[^heartbeat|^send].*\n([^send].*\n)*//g;
$string =~ s/\n[^heartbeat|^send].*\n/\n/g;
print $string;