perl - perl 中的异常处理

Question

我已经看到 1 出现在 eval 块的末尾，用于 perl 中的异常处理。为什么需要这样做？如果 eval 块返回 false 会发生什么？

即使我们不直接使用 $@ 而是使用来自 CPAN 的一些库来进行异常处理，这是否需要？

Answer 1

如果 eval 块返回 false 会发生什么？

该假值由 eval 返回.

为什么需要这样做？

这不是必需的。

my $foo = eval { foo() };

如果您对 $foo 没问题，那就太好了在异常情况下是 undef。

你所看到的是

if (!eval { foo(); 1 }) {
   ...
}

代码返回 true 以让 if知乎 eval成功了。 eval将在异常时返回 false。