本文展示了一个使用Perl语言进行脚本评估的例子。通过几个具体的Perl表达式，演示了如何利用eval函数来执行动态生成的代码片段，并展示了如何处理运算结果。
$|=1; # turn off I/O buffering
$$; # 当前pid
$" = "\n"; # 行分隔符
eval
push ( @program,'$i = 1;');
push ( @program,'$i = 3; $j = 2; $k = $i + $j');
push ( @program, '$i = 3; return 24; $k = $i + $j');
foreach $exp (@program)
{
$rtn =eval($exp);
print $rtn,"\n";
}
Output:
1
5
24
$$; # 当前pid
$" = "\n"; # 行分隔符
eval
push ( @program,'$i = 1;');
push ( @program,'$i = 3; $j = 2; $k = $i + $j');
push ( @program, '$i = 3; return 24; $k = $i + $j');
foreach $exp (@program)
{
$rtn =eval($exp);
print $rtn,"\n";
}
Output:
1
5
24
扫一扫
70
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
