获取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 );

Answer 2

如果您确定该字符串不包含任何恶意代码,则可以使用eval将其内容视为perl代码.

#!/usr/bin/perl
use strict;
use warnings;

my $string = "5+2-1";

print eval($string);
#print 6