perl eval的作用

和其他编程语言中有异常处理机制一样，perl也有类似的概念，eval。

eval的功能就是对其作用范围内的代码进行异常封装，防止一些非致命错误导致整个程序崩溃。例如

C:\Documents and Settings\Administrator>perl
$a=1;
$b=0;
eval{
eval { die "foo lives here" };
       print $@ if $@;                # prints "bar lives here"
$result=$a/$b;
};
print $@ if $@;
print "print here\n";
^D
foo lives here at - line 4.
Illegal division by zero at - line 6.
print here

 

C:\Documents and Settings\Administrator>perl
$a=1;
$b=0;
die "foo lives here";
       print $@ if $@;                # prints "bar lives here"
$result=$a/$b;
print $@ if $@;
print "print here\n";
^D
foo lives here at - line 3.

 

说白了，eval充当的是java的try或数据库各编程语言如pl/sql,t-sql,td sql中begin块，if $@是java的catch和数据库中的exception when作用。

 

并且，eval也和上述这些语言一样可以嵌套，并且在每一层次进行捕获也可以继续向外抛出。