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 的中间返回一个数值

posted @ 2016-05-28 21:04  czcb  阅读(255)  评论(0编辑  收藏  举报