正则匹配嵌套结构

有以下文本

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