在Perl中处理异常的最佳方式是什么？

> Perl不是一个完全面向对象的语言。 (例如，与其中的Java相反
你不能避免处理异常。)
>许多Perl开发人员的背景。 (像C1和shell这样的语言没有
异常机制)
>人们倾向于使用Perl的任务。 (文字的小脚本和
报表生成，不需要异常处理。)
> Perl没有(很好的)内置的异常机制。

请注意，最后一个项目意味着您会看到很多代码，如下所示：

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

这是异常处理，即使它不使用try / catch语法。然而，它是脆弱的，并将在许多微妙的边缘案例中大多数人没有想到。 Try :: Tiny和CPAN上的其他异常处理模块都是为了更容易获得正确的。

1. C有setjmp()和longjmp()，可以用于非常粗体的异常处理形式。