【已解决】perl的匹配问题

andy20008

我有一段内容要匹配，需求是这样的：
先要匹配到：backtrace，然后紧接着下面的几行还要匹配到：/system/lib/libhoudini.so，这才算匹配完成，然后我再执行处理。

具体要匹配的源文件内容如下，

1. 02-18 15:29:32.741 I/DEBUG   (  143): backtrace:
   
2. 
   
3. 02-18 15:29:32.741 I/DEBUG   (  143):     #00  pc 0016f113  /system/lib/libhoudini.so.3.3.9.44007
   
4. 
   
5. 02-18 15:29:32.741 I/DEBUG   (  143):     #01  pc 000febf4  [stack:30512]
   
6. 
   
7. 02-18 15:29:32.741 I/DEBUG   (  143):     #02  pc 00068527  /system/lib/libhoudini.so.3.3.9.44007
   
8. 
   
9. 02-18 15:29:32.741 I/DEBUG   (  143):     #03  pc 0011f6f3  /system/lib/libhoudini.so.3.3.9.44007

复制代码

因为需求的要匹配的两个东东不是在同一行，使我犯难了。我该如何实现呢？谢谢！

【解决方法见5楼】

xiumu2280

用$.这个东东控制一下就好了哦

andy20008

回复 2# xiumu2280

能否给一下代码？谢谢！

用 $. 好像不行，每两行中间是有空行的。
   

jason680

回复 1# andy20008

keep the result to a variable( ex: $last)

# cat keep_last.pl
use strict;
use warnings;

my $last = 0;
while(<DATA>){
  chomp;
  next if(m/^\s*$/);
  if($last == 1 and m(/system/lib/libhoudini\.so)){
    print "match: $_\n";
  }
  if(m/backtrace:/){
    $last = 1;
  }
  else{
    $last = 0;
  }
}


__DATA__
02-18 15:29:32.741 I/DEBUG   (  143): backtrace:

02-18 15:29:32.741 I/DEBUG   (  143):     #00  pc 0016f113  /system/lib/libhoudini.so.3.3.9.44007

02-18 15:29:32.741 I/DEBUG   (  143):     #01  pc 000febf4  [stack:30512]

02-18 15:29:32.741 I/DEBUG   (  143):     #02  pc 00068527  /system/lib/libhoudini.so.3.3.9.44007

02-18 15:29:32.741 I/DEBUG   (  143):     #03  pc 0011f6f3  /system/lib/libhoudini.so.3.3.9.44007

   

andy20008

回复 4# jason680

谢谢回复。你的我试了一下，只能匹配到一行：/system/lib/libhoudini\.so，后面的还有这样的内容就匹配不到了。


不过，我自己已经实现了：
通过两个变量用来记录行号的，第一个用来记录匹配到：“backtrace”的，第二个用来记录匹配到：“/system/lib/libhoudini.so”的，
通过后面的变量减去前面的变量，其值在某个数字范围内就OK了。

感觉这个办法比较笨，不过还是实现了我的需求。呵呵。