string - 获取perl字符串计算结果

Question

如果一个字符串表示如下
$str = "5+2-1";
我想从那个字符串中得到计算结果。
如何转换为标量来计算它？
谢谢。

Answer 1

最简单的方法是:

print eval('5+2-1');

但这不安全:

print eval('print "You are hacked"');

您需要在 eval 之前检查字符串它。
您也可以使用 Math::Expression模块或来自 cpan 的许多其他模块:

#!/usr/bin/perl

use strict;
use warnings;
use Math::Expression;

my $env = Math::Expression->new;

my $res = $env->Parse( '5+2-1' );

# my $res = $env->Parse( 'print you are hacked' );  # no math expression here

print $env->Eval( $res );