perl捕获异常

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

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

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

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

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