正则表达式能否捕捉多重括号中对等括号中的内容？

hztj2005

正则表达式能否捕捉对等括号中的内容？
100-（ 5*（4+89-（34/5）））

我的意思是能否捕捉： -号后的 （ 5*（4+89-（34/5）））
                             *号后的（4+89-（34/5））

谢谢！

104359176

这要用到正则中的递归，这个很复杂，不如直接写一个遍历，自己设置层数，进行捕获。

if meet '(' -> depth++
if meet ') -> depth--

sunzhiguolu

跟 Jason680 大神学的, 不知道这样用是否正确, 如有误, 还请大家指正:
参见 - 11楼, 17楼

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. local $_ = "100-（ 5*（4+89-（34/5）））";
   
6. print "$1\n$2\n" while (m/-(（.*?(（(?:[^（]|(?2))*）)）)/g);
   

复制代码

perl abc.pl
-----------------------------------------------------------
（ 5*（4+89-（34/5）））
（4+89-（34/5））

104359176

This code is difficult to write, read and change.

hztj2005

回复 2# 104359176

我也是用程序实现的。
正则表达式从内向外，从左到右，捕捉括号对，push到 一个 数组。再根据需要pop。


   

hztj2005

回复 3# sunzhiguolu

我表示看不懂。
不过，谢谢了。有时间再来研究。
   

sunzhiguolu

104359176 发表于 2016-08-02 20:16
这要用到正则中的递归，这个很复杂，不如直接写一个遍历，自己设置层数，进行捕获。

if meet '(' -> dep ...

大神, 在这个地方我与您的观点不同.
利用正则的递归功能可以有效的缩减代码量, 而且我感觉这个功能非常适合做这些 (深层次的 OR 层次不确定) 的成对匹配操作.
可能会造成一些开销, 这些开销对于现在的计算机来说 应该问题不大吧, 有不对之处请指正.

sunzhiguolu

回复 5# hztj2005

正则表达式从内向外，从左到右，捕捉括号对，push到 一个 数组。再根据需要pop。

大神您能否提供一个示例代码, 关于您说的那个解决方案. 先谢谢大神了.

   

RE_HASH

递归一个
$>  echo '100-(5*(4+89-(34/5)))'|perl -ne '$,="\n"; print /(\((\d[^(]+|(?R))*\))/g;'
(5*(4+89-(34/5)))
(4+89-(34/5))

RE_HASH

带空格的：
$>  echo '100-( 5* ( 4+89-( 34/5 ) ) )'|perl -ne '$,="\n"; print /(\(\s*([^(]+?|(?R)\s*)*\))/g;'
( 5* ( 4+89-( 34/5 ) ) )
( 4+89-( 34/5 ) )