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

就没法用用上面的结构了，必须要使用平衡组，或者是递归来做，其实上面的代码也可以看做是

这种类型，简单点就是(1*（1+2）/3)这种类型的括号嵌套,可以利用(?R)来递归（perlre中有详解），或者是(?？{code})

动态正则表达式结构。

以下我利用(??{code})来示范写了一段。。

 

#!/usr/bin/perl
use strict;
use warnings;
my (@arr,$re,$line,@tmp);
while(){
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