perl-- eval的作用

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

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

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

?

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

?

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

?

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