请问怎样匹配未知层数的嵌套括号？

xzq_xd

1. 如：

复制代码

xzq_xd

如$str = "a{b{c{...{...}...}}}";
请问怎样匹配到c{...}的内容？

jason680

回复 2# xzq_xd

$ echo "a{b{c{1{2}3}}}" | perl -lne '{$re=qr/([^{}]*\{((??{$re})|[^{}]+)*\}.*)/;while(m/$re/){print ++$c," $1";$_=$2}}'
1 a{b{c{1{2}3}}}
2 b{c{1{2}3}}
3 c{1{2}3}
4 1{2}3

104359176

来个牛刀！

1. Administrator@JZQB659LXCACD19 E:\ssqq
   
2. $ type test.pl
   
3. #!usr/bin/perl
   
4. 
   
5. use 5.012;
   
6. use Spp qw(parse);
   
7. use Spp::Tools qw(to_json);
   
8. 
   
9. my $rule = <<'EOF';
   
10.    door = Any Nest ;
    
11.    Any  = [^{}]+ ;
    
12.    Nest = \{ |Any Nest|+ \} ;
    
13. EOF
    
14. 
    
15. my $str = 'a{b{c{...{...}...}}}';
    
16. my $match = parse($rule,  $str);
    
17. say to_json($match);
    
18. 
    
19. 
    
20. Administrator@JZQB659LXCACD19 E:\ssqq
    
21. $ perl test.pl
    
22. Finish Lint door grammar!
    
23. [["Any","a"],["Nest",[["Any","b"],["Nest",[["Any","c"],["Nest",[["Any","..."],["Nest",[["Any","..."]]],["Any","..."]]]]]]]]

复制代码

q1208c

楼上的两位，一个是在perl版发 PowerShell。
另一位是 在 Windows 中的 perl。

sunzhiguolu

回复 3# jason680

Global symbol "$re" requires explicit package name (did you forget to declare "my $re"?)

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. $_ = 'a{b{c{1{2}3}}}';
   
6. my $re = qr/([^{}]*\{((??{$re})|[^{}]+)*\}.*)/;
   
7. while(/$re/){
   
8.     #...
   
9. }
   

复制代码