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,如需转载请自行联系原作者