来源: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。错误码被保存在$@中