PERL 用EVAL 来捕捉异常Exception

$total=0;
$count=0;
eval { $average = $total / $count ; print "xxx/n";} ;
if ($@)
{
  print "wrong /n";
}
else
{
  print "right/n";
}
 
eval块的结束时的分号是必须的，因为不像 if或者while那样的控制结构，eval实际上是个函数。但是代码块是真的块，所以可以包括词法变量（"my" 修饰的变量）和另外其它的arbitrary语句。因为是个函数，eval有像子例程那样的返回值（最后一个表达式的求值结果，或者由return语句返回的结果）。 当然，如果代码块失败则没有值返回；如果在标量环境将返回未定义值，在列表环境将返回一个空的列表。因此，比较安全的求平均值的代码的写法如下：
my $average = eval { $total / $count } ;

Perl也支持eval代码块的嵌套。只要代码执行，eval块总能捕捉错误，所以它能捕捉嵌套子例程里发生的错误。尽管如此，eval不能捕捉到非常严重的错误，这些错误发生时Perl自己会中断执行。这些错误包括无法捕捉的信号，内存溢出或其它的灾难。eval同样不能捕捉到语法错误；因为Perl在编译eval及其它代码的时候检查语法错误，而不是在运行时。还有，eval也不能捕捉警告。（但是Perl的确提供一个方法来捕捉警告信息；可以查阅一下变量$SIG{__WARN__}）。