当前位置：首页 → 问答吧 → 用PERL如何实现括号的正确匹配，相当于数学中的小括号，请多发表意见！！！

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

时间：2010-10-23

来源：互联网

本帖最后由 minirain 于 2010-10-23 22:46 编辑

如式子：
表达式1、{{名称为括号A ...}}......字符串{{......}}；
         A                   A                B    B
表达式2、{{...... .......{{...........}}...........}}
            A             B          B          A
其中A、B为正确匹配的括号名称，......为字符串，一段文字有很多表达示1和表达式2组成，用Perl 正则表达式如何实现括号（{{）与回括号（}}）AA、BB正确匹配呢？
如表达式1、用$kk ＝~ s/\{\{  ([^\}]+) \}\}/&Fuction($1)/gxe;  适合表达式1的情况但不适合表达式2的情况;
表达式2、用$kk ＝~ s/\{\{ (.*) \}\}/&Fuction($1)/gxe;  适合表达式2的情况但不适合表达式1的正确匹配；

与数学优先级高的小括号计算式表达式一样：
1、（2＋3）×（4－8）
2、5×（3＋8×（3＋4））
不知道计算机或者计算器是如何正确匹配计算式小括号配对的？？？
请大家多给建议或意见！
谢谢大家了！
minirain
20101023

作者: minirain 发布时间: 2010-10-23

再复杂也不过是个树，像lisp那样

作者: zhlong8 发布时间: 2010-10-23

QUOTE:

再复杂也不过是个树，像lisp那样
zhlong8 发表于 2010-10-23 22:45

请问如何实现呢？谢谢！

作者: minirain 发布时间: 2010-10-23

以前实现 scheme 的 read 的时候写个类似的。[current, parent] 这样的结构，遇到 '(' 就新加一层变成
[new_current, [current, parent]]，遇到 ')' 就消除一层……还要再具体吗

作者: zhlong8 发布时间: 2010-10-23

QUOTE:

以前实现 scheme 的 read 的时候写个类似的。[current, parent] 这样的结构，遇到 '(' 就新加一层变成
[ne ...
zhlong8 发表于 2010-10-23 22:53

能给个用PERL程序实现的例子，可以吗？

作者: minirain 发布时间: 2010-10-23

本帖最后由 zhlong8 于 2010-10-23 23:57 编辑

package T

package T;
use 5.012;
use warnings;
sub new {
my($class, $parent) = @_;
bless {
current => [],
parent => $parent
}, $class;
}
sub dec {
my $self = shift;
push @{$self->{parent}{current}}, $self->{current};
$self->{parent};
}
sub add {
my($self, $val) = @_;
push @{$self->{current}}, $val;
}
sub top {
bless {current => [], parent=> []}, shift;
}
1;

复制代码

实现

use 5.012;
use strict;
use warnings;
use T;
use Data::Dumper;
use Regexp::Common;
sub parse {
my $tree = T->top;
for (@_) {
given ($_) {
when ('(') {$tree = T->new($tree)}
when (')') {$tree = $tree->dec;}
default {$tree->add($_);}
}
}
say Dumper $tree;
}
sub tokenize { #功能非常有限
my $str = shift;
say "got $str";
my @all;
while ($str =~ /\G\s*($|$|$RE{num}{int}|$RE{num}{real}|\w+|[+\-*\/])\s*/g) {
push @all, $1;
}
say "return @all";
@all;
}
#(define a (+ 343 (* 3323 a)))
parse '(', 'define', 'a', '(', '+', '343', '(', '*', '3323', 'a', ')', ')', ')';
#或者
parse tokenize '(define a (+ 343 (* 3323 a)))'

复制代码