如何匹配具有嵌套结构的字符串

Perlvim

1. match ( hell ( world ( thanks))) left sensentence

复制代码

用正则表达式匹配 match 最外层的结构
hell ( world ( thanks))
，该如何解决呢？

我记得以前有过类似的帖子，但查不到了，希望这里的高手看看。

Perlvim

看不懂？就是匹配一堆括号，但左括号和右括号的数目必须相等，在左括号等于右括号的地方，停住，匹配结束

Perlvim

1. #!perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use 5.010;
   
6. use Regexp::Common qw /balanced/;
   
7. 
   
8. 
   
9. my $expr = '((A,B),C,(D,E)) ( hello world )';
   
10. my $re = $RE{balanced}{-parens=>'()'};
    
11. 
    
12. if ($expr =~ /($re)/) {
    
13.     say $1;
    
14. }

复制代码

Perlvim

以上的办法只有在特定的情况下有效。

一个包含嵌套结构的字符串，这个嵌套结构可能有几个，可能没有，可能在中间，也可能在开头，还可能在结尾。

例如解析一个 makefile 中的 foreach 函数，或是替换一个 C 代码中带参数的宏。