perl捕获异常

perl捕获异常，仅供参考，可以扩展...

####打开文件句柄
  eval {
    open(FH,"domains.txt") or die "Can't open files,$!";
    };

#捕获异常
  if($@){
    #出现异常
  }
  else{

      #无异常，打印文件内容
      while(<FH>){
           ...
       }
    close FH;
   }

如果eval块中的程序有语法错误、运行时错误或者遇到die语句，eval将返回undef。错误码被保存在$@中。

本文转自hahazhu0634 51CTO博客，原文链接：http://blog.51cto.com/5ydycm/560646，如需转载请自行联系原作者