大家好！请问用什么办法能把这段文本拆解啊？

redspider

数据结构课本 - 栈 - 计算器示例 - 表达式解析

或者 直接正则匹配

redspider

把括弧压到栈里，以此分隔各段，在各段内做正则匹配。

redspider

帅锅，我很懒的啊
把左括弧压到栈里，遇到右括弧就弹一个出来，栈空了就说明这一段读完了。

redspider

等我下班吧

redspider

#! /usr/bin/perl use warnings; use strict; my @data; my $stack_point = 0; # 每段数据开头的标识处理我不写了 # ........ open(FILE, 'file') or die $!; while (<FILE>) {     my @characters = split(//);     for my $c (@characters) {         push(@data, $c);         if ($c eq '(') { $stack_point++ }         elsif ($c eq ')') { $stack_point-- }         if ($stack_point == 0) {             # $stack_point 计数为 0 说明一段数据读完             # 数据在 @data 中，这里该咋办咋办             @data = (); # 办完后清空         }     } } close FILE;

刚改了两行代码。说不上先进，别人几十年前发明的。
还是彩色的代码看着爽 ， 顺便说下，偶不用 MSN

[ 本帖最后由 redspider 于 2007-9-3 19:06 编辑 ]