Re: [PerlChina] 求救 多行全部匹配问题

整了一下午  终于可以了：

 

 

#!/usr/bin/perl -w

#date:2010-08-17

#version:1.0.0.0

use strict;

my $sec;

my $min;

my $hour;

my $mday;

my $mon;

my $year;

my $wday;

my $yday;

my $isdst;

my $sday;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();

my $now=sprintf("%04d-%02d-%02d",$year+1900,$mon+1,$mday-1);

open(L,"/opt/ccmp/logs/charge/symbian.log-$now.log") or die('Can not open this file!');

$/=undef;

my $a=<L>;

close(L);

open(LL,">>/opt/ccmp/logs/charge/symbian_log_grub/symbian_log_grub.$now.txt");

my $num=1;

while($a=~/((\[ip =\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])\<c\>\n\<srqh\>\n[^\n]+\n[^\n]+\n[^\n]+\n\<\/srqh\>\n\<nd\>\n\<eid\>[^\n]+?\(B[^\n]+\<\/eid\>\n\<whead\>(.*?)\<\/whead\>\n\<wbody\>(.*?)\<\/wbody\>(.*?)\<\/c\>)/sg){

    print LL "============================================================\n";

    print LL "第$num个:  $2\n";

    print LL "----------------------------------\n";

    print LL "$1\n";

    print LL "============================================================\n";

    $a=$';

    $num=$num+1;

}

close(LL);

 

 

2010-08-17

---

zmf122333@126.com

---

发件人： zmf122333@126.com

发送时间： 2010-08-17  15:55:17

收件人： perlchina

抄送：

主题： [PerlChina] 求救 多行全部匹配问题

大家好！

         我有个文本，类似附件中的样子，我要的匹配项包括ip及<eid>标签中还有(B的内容知道</c>结束的这段日志。

以下是我的脚本，但是只能匹配到第1次的匹配项，以后的就匹配不到了，很是郁闷，各位帮我看看！

 

#!/usr/bin/perl -w

use strict;

open(L,'c:\\symbian.log') or die('Can not open this file!');

$/=undef;

my $a=<L>;

close(L);

$a=~/((\[ip =\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}\])\<c\>\n\<srqh\>\n[^\n]+\n[^\n]+\n[^\n]+\n\<\/srqh\>\n\<nd\>\n\<eid\>(.*?)\(B(.*?)\<\/eid\>\n\<whead\>(.*?)\<\/whead\>\n\<wbody\>(.*?)\<\/wbody\>(.*?)\<\/c\>)/sg;

print "============================================================\n";

print "$2\n";

print "----------------------------------\n";

print "$1\n";

print "============================================================\n";

 

 

不甚感激！

 

2010-08-17

---

zmf122333@126.com