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__}）。