perl捕获异常
perl捕獲異常,僅供參考,可以擴展...
####打開文件句柄
? eval {
??? open(FH,"domains.txt") or die "Can't open files,$!";
??? };
#捕獲異常
? if($@){
??? #出現異常
? }
? else{
????? #無異常,打印文件內容
????? while(<FH>){
?????????? ...
?????? }
??? close FH;
?? }
如果eval塊中的程序有語法錯誤、運行時錯誤或者遇到die語句,eval將返回undef。錯誤碼被保存在$@中。
如果想了解更多,請關注我們的公眾號
公眾號ID:opdevos
掃碼關注
總結
- 上一篇: iPhone socket 编程之BSD
- 下一篇: 磁盘配额 挂载 和yum源的配置