用PERL如何正确配对双括号和叁括号？如：{{{postcode|{{post_tel|p281}}}}}

minirain

用PERL如何正确配对双括号和叁括号，如：{{{postcode|{{post_tel|p281}}}}}应正则匹配成：
1、Template1＝{{post_tel|p281}};
2、{{{postcode|Template1}}}
这样才是正确的。
如下是错误的：
1、Template2 ＝ {{{postcode|{{post_tel|p281}}}；
2、Template2}}。
****************************
有人说用 .*贪婪性，$xx=~s/\{\{\{(.*)\}\}\}/($a=$1,$a=^\{\{[^\{\}]+\}\}^Template1^g,$a)/g;
可字符串中有很多这样的：{{{postcode|{{post_tel|p281}}}}} {{{AA|{{bb|cc}}{{dd|ee123}}}}}   {{{55|66 77{{88|99}}  {{...|......}}}}}
这时就不能用.*来贪婪匹酏了！！！
请大侠出招。
minirain

chenhao392

不知楼主需求，能否先简化问题？

比如，弄个计数器，同时创建一个工作变量。 从左向右substr。出现左括号时+1, 出现右括号－1.
每次计数器＝＝0 时，把工作变量处理一下。

minirain

chenhao392 发表于 2015-02-01 07:56
不知楼主需求，能否先简化问题？

比如，弄个计数器，同时创建一个工作变量。 从左向右substr。出现左括号 ...

简化问题如下：
双括号内容（用正则捕获）调用其实现函数：$y = ~s/\{\{([^\{\}]+)\}\}/&Bracket2($1)/ge ;
叁括号内容（用正则捕获）调用另一函数实现其功能：$z = ~s/\{\{\{([^\{\}]+)\}\}\}/&Bracket3($1)/ge ;
对于你说的双括号（或叁括号）单一情况可以用计数解决匹配问题：
{{A..{{B..b}} C..{{D..{{E..e}}F.. d}} a}}括号阶度为3即{{E..e}}为第3阶可以用计数器解决
同样，单一有叁括号情况：
{{{A..{{{B..b}}} C..{{{D..{{{E..e}}}F.. d}}} a}}}也可以用计数器解决，
但是双括号与叁括号混合时，就比较难解决，因为叁括号{{{A..  {{B..b}}}}}可能被误认为是双括号即{{{(A.. {{B..b}}})}}对于最后结尾'}}}}}'是前3'}}}'后2'}}',还是前2'}}'后3'}}}',正则表达式无法分清楚。
以上内容，不知我描绘清楚了吧？
谢谢各位大侠多出招！
minirain

chenhao392

回复 3# minirain


    你要匹配这个干嘛？说下需求。
    说不定不用RE.

    然后，有多少种不同的case？ 3个套2个，2个套3个，就这两种case？