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其實是個函數。可是代碼塊是真的塊，因此能夠

>>阅读原文<<