Perl 没有内置的异常处理机制,所以最合适的方法就是使用Try::Tiny 模块。虽然CPAN中处理异常的模块很多,但是这个模块最为轻巧,使用起来也没有过多的依赖关系。
语法:
use autodie;
use Try::Tiny;
# handle errors with a catch handler
try {
die "foo";
} catch {
warn "caught error: $_"; # not $@
};
注意:catch 代码以分号结尾的,是一个表达式。另外,它会将出错的信息保存在变量$_而不是$@中。
|
请发表评论