perl 正則匹配嵌套結構

有這麼一道題。。

aaa
bbb
#if defined(__MMI_DEL__)
   ccc
#endif
ddd
eee
#if defined(__MMI_DEL__)
   fff
   ggg
#endif
hhh

要求匹配

註釋外的內容，匹配以後的內容：

aaa

bbb

ddd

eee

hhh

能夠利用/^xxx/../^xxx/結構來匹配 ，可是出現瞭如下的嵌套結構，

 

aaa
bbb
#if defined(__MMI_DEL__)
   ccc
#endif
ddd
eee
#if defined(__MMI_DEL__)
   fff
   ggg
#if defined(__EX222__)
   KKK
#if defined(__EX222__)
woshi
#endif
  LLLL
#endif
#endif
sdffff
#if defined(__EX222__)
sdfsdf
sdff
#endif
sdfdsf

就無法用用上面的結構了，必需要使用平衡組，或者是遞歸來作，其實上面的代碼也能夠看作是<div></div>

這種類型，簡單點就是(1*（1+2）/3)這種類型的括號嵌套,能夠利用(?R)來遞歸（perlre中有詳解），或者是(?？{code})

動態正則表達式結構。

如下我利用(??{code})來示範寫了一段。。

 

#!/usr/bin/perl
use strict;
use warnings;
my (@arr,$re,$line,@tmp);
while(<DATA>){
chomp;
   s/#if\s*defined.*?$/(/g;  #這裏替換成(和)方便匹配
   s/#endif/)/g;
   push @arr,$_;
}
$line .= "$_\_" for @arr;
#print $line;
$re = qr/(?>[^()]+|\((??{$re})\))*/;
while($line =~ /(\w*)\($re\)(\w+)/g){
    push @tmp,split/\_/,"$1$2";
}
print join("\n",@tmp);
__DATA__
aaa
bbb
#if defined(__MMI_DEL__)
   ccc
#endif
ddd
eee
#if defined(__MMI_DEL__)
   fff
   ggg
#if defined(__EX222__)
   KKK
#if defined(__EX222__)
woshi
#endif
  LLLL
#endif
#endif
sdffff
#if defined(__EX222__)
sdfsdf
sdff
#endif
sdfdsf

 output:

aaa

bbb

 

ddd

eee

 

sdffff

 

sdfdsf