介绍:
和其它的编程语言一样,perl也有类似的异常处理机制。
perl中eval的功能就是对其作用范围内的代码进行异常封装,以防止一些非致命错误导致整个程序崩溃。
请看下面的例子:
复制代码 代码如下:
C:Documents and SettingsAdministrator>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 and SettingsAdministrator>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和上述这些语言一样可以嵌套,并且在每一层次进行捕获也可以继续向外抛出异常。