用PERL如何实现括号的正确匹配，相当于数学中的小括号，请多发表意见！！！

黑色阳光_cu

[i=s] 本帖最后由 黑色阳光_cu 于 2010-10-25 18:30 编辑 [/i]

假如是想求值的话，可以这样子：
my $exp = "5*(3+8*(3+4))";
while ($exp =~ /\((?!.*\()(.*?)\)/)
{
        substr($exp, $-[0], $+[0] - $-[0]) = eval($1);
}

$exp = eval($exp);
warn $exp;

minirain

假如是想求值的话，可以这样子：
my $exp = "5*(3+8*(3+4))";
while ($exp =~ /\((?!.*\()(.*?)\)/)
{
...
黑色阳光_cu 发表于 2010-10-25 18:04

不是为了算数学表式式（只是打个比喻哈），如果真是要算$exp=5（3＋8（3＋4））值，那直接手$ab＝eval($exp)；就可以了呀
我只是想得到正确匹配（注意是正确匹配）括号内的内容再调用自定义函数运算；
谢谢你的意见！
minirain

黑色阳光_cu

不是为了算数学表式式（只是打个比喻哈），如果真是要算$exp=5（3＋8（3＋4））值，那直接手$ab＝eval( ...
minirain 发表于 2010-10-26 08:26

样本长什么样的?要进行什么处理

botafuge

嵌套
见《精通正杂表达式》 P328

$levelN = qr/ \(( [^()] | (??{ $levelN }) )* \) /x;

xie3ks

同意七楼，用堆栈会简单很多!

flw

严格意义上的正则表达式不会数数。

所以得用扩展的正则表达式才行。

Perl6 干这事儿不是很拿手么？
有人 show 一把吗？

sunzhiguolu

回复 16# flw
您能 show 一把吗? (Perl 5 或 Perl 6)


   

flw

Perl5 的话，看看这个：
https://metacpan.org/pod/Parse::RecDescent

Perl6 的话，我也不会了。
不过学学应该很简单吧。

minirain

回复 18# flw
对这个模块Parse::RecDescent中的‘$grammar’看不明白啊。请FLW抛砖引玉一下，谢谢！
minirain
20151013

   

104359176

这个用 Perl6 会简洁一些：

1. use v6;
   
2. 
   
3. grammar exprs {
   
4.   token expr { '(' [ \w+ || <expr> ]+ ')' }
   
5.   token TOP { [ \w+ || <expr> ]+ }
   
6. }
   
7. 
   
8. my $str = 'aa(bb(cc(dd)dd)ff)ee';
   
9. exprs.parse($str).say;
   

复制代码

output:

1. > perl6 p.p6
   
2. ｢aa(bb(cc(dd)dd)ff)ee｣
   
3. expr => ｢(bb(cc(dd)dd)ff)｣
   
4.   expr => ｢(cc(dd)dd)｣
   
5.    expr => ｢(dd)｣

复制代码