现在要讲的是 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.

建议继续学习：

1. perl更新/修改/删除文本文件内容    (阅读：9443)
2. PHP的异常原理与实例说明 Fatal error: Uncaught exception    (阅读：8864)
3. perl大牛flw传说    (阅读：6516)
4. perl模块Getopt::Std用法及实例-从命令行读取参数模块    (阅读：5892)
5. 是返回错误码，还是抛出异常？说说我的选择    (阅读：5908)
6. [Perl] Template::Toolkit 模板技术.    (阅读：5371)
7. 在perl中连接和使用sqlite做数据存储    (阅读：5067)
8. Perl命令行常见用法及技巧    (阅读：4814)
9. perl模块之MIME::Lite发送有附件的邮件    (阅读：4448)
10. perl的expect使用方法，实现非交互式登录。    (阅读：4500)