perl 如何来解析表达式?

kernel.org

比如解析

1+(-12)*38/2-(3-10)*123
这样的表达式 然后计算出来.表达式可能非常长 嵌套很多括号.

大家提一下思路,还有解决的方法好吗?

apile

解析???你到底要得到怎样的结果？
如果只是要得到结果，
$str = "1+(-12)*38/2-(3-10)*123";
$result = eval { return $str};