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; }