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

Perlvim

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

复制代码

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

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

yinyuemi

回复 1# Perlvim

1. perl -le '$str="match ( hell ( world ( thanks))) (()left sensentence) ";
   
2. $str =~ m{match (\(((?:(?>[^()]+)|(?1))*)\))};
   
3. print $1'
   
4. ( hell ( world ( thanks)))
   

复制代码

http://perldoc.perl.org/perlre.html

zhlong8

Text::Balanced ?
或者用 RE 的递归功能，不过这要把 perlre 看透

sjdy521

看不懂需求。。

Perlvim

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

shijiang1130

1. my $expr = '((A,B),C,(D,E))';
   
2. print extract('C',$expr),"\n";
   
3. print extract('B',$expr),"\n";
   
4. print extract('D',$expr),"\n";
   
5. 
   
6. sub extract {
   
7.     my $char = shift;
   
8.     local $_ = shift;
   
9.     (my $re=$_)=~s/((\()|(\))|.)/$2\Q$1\E$3/gs;
   
10.     return (sort{length $a <=> length $b}(grep/$char/,eval{/$re/},$@ && die $@))[0];   
    
11. }

复制代码

http://www.perlmonks.org/index.pl?abspart=1;displaytype=displaycode;node_id=308821;part=1

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. }

复制代码

Y龙-鬼

左括号非贪婪，右括号贪婪就好啦。如：
/.*?\((.*)\).*/

小公猫

Y龙-鬼 发表于 2012-03-12 14:17
左括号非贪婪，右括号贪婪就好啦。如：
/.*?\((.*)\).*/

这个方法感觉很不错啊

Perlvim

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

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

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