per 中模式匹配

HF.SKY000

LOG日志文件格式如下：
PART。1
****************
PART。2
****************
PART。3
****************
PART。4
****************
END JOB

我读取的log日志文件如上文，这个文件大概有10M左右，但是文件相对来说比较有规律，PART。1到END JOB。
我打的星号是此文件中的一部分内容。
我现在只想要PART。3中的一部分数据。请问在读取文件时，如何快速定位到以下部分内容：
PART。3
****************
PART。4

dugu072_cu

if(/PART。3/../PART。4/) {
   do sth...
}

ttcn_cu

哎，晚来了一步。。。

HF.SKY000

好，我试试。

HF.SKY000

哈哈，谢谢楼上的，我之前都按行去匹配的，花了不少时间，这样真是太快了。

HF.SKY000

不知道还有其它方法没有？

Perl_Er

yes, range operator

dugu072_cu

原帖由 HF.SKY000 于 2009-12-20 16:13 发表
不知道还有其它方法没有？

文件10M左右，还不算大，可以一次读入后，匹配一次即可：
my @lines = <$hFile>;
my $match = join( "", @lines);
$match =~ /PART。3(.*)PART。4/s;
$1就是了～

ttcn_cu

狠！

yybmsrs

原帖由 dugu072_cu 于 2009-12-20 15:18 发表
if(/PART。3/../PART。4/) {
   do sth...
}

这个怎么理解呢？