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

Question

我注意到 Exception.pm 和 Error.pm 似乎并没有在 Perl 社区中广泛使用。这是因为异常处理的 eval 占用空间很大吗？

另外，Perl 程序对于异常处理一般来说似乎有更宽松的政策。这有令人信服的理由吗？

无论如何，Perl 中异常处理的最佳方法是什么？

Answer 1

Perl 社区的共识似乎是 Try::Tiny 是首选方式异常处理。您提到的“宽松政策”可能是由于以下原因的组合：

• Perl 不是一种完全面向对象的语言。 （例如，与 Java 相比，其中
  你无法避免处理异常。）
• 许多 Perl 开发人员的背景。 （像 C¹ 和 shell 这样的语言没有
  异常机制。）
• 人们倾向于使用 Perl 来完成此类任务。 （用于文本修改的小脚本和
  不需要异常处理的报告生成。）
• Perl 没有（好的）内置异常机制。

请注意，最后一项意味着您将看到很多这样的代码：

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

这是异常处理，即使它不使用 try/catch 语法。但它很脆弱，并且会在许多大多数人没有想到的微妙边缘情况下崩溃。 Try::Tiny 和 CPAN 上的其他异常处理模块的编写是为了更容易正确处理。

<子>1。 C 确实有 setjmp() 和 longjmp()，它们可用于非常粗略的异常处理形式。

Answer 2

切勿按原样测试 $@，因为它是一个全局变量，因此即使测试本身也可以更改它。

通用评估模板：

my $result;

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

在实践中这是最简单的方法。它仍然为有趣的 $@ 行为留下了很小的空间，但没有什么真正让我担心的。

Answer 3

正如已经提到的，您可以使用传统方式 eval，但如果您愿意要使用更复杂的异常捕获（包括异常对象），那么我建议使用 try-catch-finally 块。
有相当多的 Perl 模块提供了它，例如 Nice::Try 和 Syntax::Keyword::Try，但是 Syntax::Keyword::Try 不提供异常变量赋值或异常类捕获，如

  try
  {
    # something
  }
  catch( Exception $e )
  {
    # catch this in $e
  }

完全披露：我是开发人员Nice::Try