最新消息:欢迎光临!

perl

perl捕获异常

findever 5年前 (2014-03-03) 1283浏览 0评论

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