在Perl中处理异常的最佳方法是什么?

Perl社区的共识似乎是 Try::Tiny 是进行异常处理的首选方法。您所指的“宽大政策”可能是由以下几种因素共同造成的:

• 你不能避免处理例外情况。)
• 许多Perl开发人员的背景知识。(像C这样的语言 ^1个 而shell没有
• 人们倾向于使用Perl执行的任务类型。(文本咀嚼和 不需要异常处理的报表生成。)
• Perl没有(好的)内置异常机制。

注意,最后一项意味着您将看到很多这样的代码:

eval { something() };
if ($@) {
    warn "Oh no! [$@]\n";
}

_{一。C确实有 setjmp() 和 longjmp()}

永远不要按原样测试$@因为它是全局变量,所以即使测试本身也可以更改它。

通用评估模板:

my $result;

eval {
    $result= something();
    # ...
    1;  # ok
} or do {
    my $eval_error= $@ || "error";
    # ...
    die $eval_error;
};  # needs a semicolon

实际上这是最轻松的方式。它仍然给我留下了一个小小的空间,让我可以做出有趣的$@行为,但没有什么真正让我感到足够的担心。