Perl 异常处理之 autodie 和 Try::Tiny
浏览:2517次 出处信息
现在要讲的是 audodie 和 Try::Tiny 这是近来看的几本 Perl 书常常提到的,记个笔记。
有时我们常常写多个 open ,然后还要写上多次 die 象下面,读一个文件,然后写一个文件,有时我写的 open 会超过 4 个,要写很多次 die 这时非常麻烦。我们如果直接 use autodie 就直接能解决所有问题。所有的 die 的地方都能自动实现。
open my $fh, '<', $in or die "$!"; open my $fh, '>', $out or die "$!";
加上 autodie 以后就成了
use autodie open my $fh, '<', $in; open my $fh, '>', $out;
有了这个方便多了,有时我们常常不想让程序 die 了后退出,想抓到原因,得使用 eval 然后来检查 $@.象下面这样。
use autodie; eval { open my $fh, '<', $in; # ..... } if ($@) { # TODO } eval { open my $fh, '>', $out; } if ($@){ # TODO }
还好上次只有二个 open 。。。是不是感觉很痛苦,要是 open 之类会 die 的更加多点的话。另外,有没有发现,只要第一个 open 失败,第二个 if ($@) 永远会失败。因为 $@ 的标记下面也检查同样的变量。这时使用 Try::Tiny 中的 try catch 吧(Python 原生支持)。
这时使用很方便
use autodie; use Try::Tiny; try { open my $fh, '<', $in; # ..... open my $fh, '>', $out; # ..... } cacht { print "Error $_\n"; }
有时我们还可以在这个地方使用 try Catch
做程序流程控制
use autodie; use Try::Tiny; try { &sub1(); &sub2(); &sub3(); } cacht { &sub4(); &sub5(); &sub6(); }
象上面,只要在 sub1, sub2, sub3 任意一个子函数 die 出来,这个流程就认为出错,就做其它的另一种方案的流程 sub4,sub5,sub6.
建议继续学习:
- perl更新/修改/删除文本文件内容 (阅读:9322)
- PHP的异常原理与实例说明 Fatal error: Uncaught exception (阅读:8658)
- perl大牛flw传说 (阅读:6451)
- 是返回错误码,还是抛出异常?说说我的选择 (阅读:5764)
- perl模块Getopt::Std用法及实例-从命令行读取参数模块 (阅读:5757)
- [Perl] Template::Toolkit 模板技术. (阅读:5317)
- 在perl中连接和使用sqlite做数据存储 (阅读:4919)
- Perl命令行常见用法及技巧 (阅读:4667)
- perl的expect使用方法,实现非交互式登录。 (阅读:4357)
- perl模块之MIME::Lite发送有附件的邮件 (阅读:4350)
QQ技术交流群:445447336,欢迎加入!
扫一扫订阅我的微信号:IT技术博客大学习
扫一扫订阅我的微信号:IT技术博客大学习
<< 前一篇:记录程序日志
文章信息
- 作者:扶凯 来源: 扶凯
- 标签: audodie Perl 异常
- 发布时间:2011-06-01 13:44:17
建议继续学习
近3天十大热文
- [263] Go Reflect 性能
- [18] 公钥私钥加密解密数字证书数字签名详解
- [16] 基于HTTP缓存轻松实现客户端应用的离线支持
- [15] Linux内存中的Cache真的能被回收么?
- [15] 正态分布的前世今生(一)
- [15] osx平台上lol英雄联盟launcher启
- [15] Joomla反序列化漏洞的查漏补缺
- [13] 无锁HashMap的原理与实现
- [13] 我的git笔记
- [12] 在JavaScript中什么时候使用==是正