perl eval函数

29.2.32 eval
• eval BLOCK
• eval EXPR
• eval

eval 关键字在Perl 里起两种不同的但相关的作用。这些目的是用两种形式的语法
来表现的， eval BLOCK 和eval EXPR。第一种形式捕获那些致命的运行时例外
（错误），类似于C++ 或Java 里的“try 块”。

eval { ... }; # 捕获运行时错误
if ($@) { ... } # 处理错误

[tomcat@wx03 ~]$ cat a1.pl
use File::Path;
eval {mkpath ("/root/bigger/1")};
if ($@) {print $@; }
[tomcat@wx03 ~]$ perl a1.pl
mkdir /root/bigger: Permission denied at a1.pl line 2.

eval BLOCK 

eval EXPR

两种形式的 eval 所返回的值都是它计算的最后一个表达式的值，这一点和子过程
一样。

在 BLOCK 里的代码必须是合法的Perl 代码，这样它才能通过编译阶段。

在EXPR 里的代码直到运行时才检查，所以要到运行时它才导致错误的发生。

eval BLOCK 形式是在编译时做语法检查的，所以它的效率相当高。

eval EXPR 形式可以捕获语法错误是因为它在运行时分析代码。

eval EXPR
EXPR 是一个的表达式

[tomcat@wx03 ~]$ cat a4.pl
my $str=eval {return 100};
print "\$str is $str\n";
[tomcat@wx03 ~]$ perl a4.pl
$str is 100

eval 所返回的值都是它计算的最后一个表达式的值，这一点和子过程
一样。类似的，你可以用return 操作符从eval 的中间返回一个数值