perl捕获异常

来源：http://5ydycm.blog.51cto.com/115934/560646

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

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

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

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

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