perl捕获异常

eval {
open(FH,"domains.txt") or die "Can't open files,$!";
};
#捕获异常
if($@){
#出现异常
}
else{
#无异常，打印文件内容
while(<FH>){
...
}
close FH;
}

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

####打开文件句柄

eval {
open(FH,"domains.txt") or die "Can't open files,$!";
};
#捕获异常
if($@){
#出现异常
}
else{
#无异常，打印文件内容
while(<FH>){
...
}
close FH;
}

转载请注明：Findever » perl捕获异常