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