perl - Perl 异常而不是返回值

Question

在一些 perl 脚本中，我发现自己在编写如下内容：

open(...) or die $!;
print ... or die $!;

等等

我想避免or die ...在每一个可能的例外结束时重复自己说的话。

有没有办法强制open()等函数在出错时抛出异常，而不仅仅是错误的返回值？然后我可以一口气捕获所有可能的异常。

Answer 1

是的。它存在一个使这些指令因错误而死的模块，它被称为autodie. 在脚本的开头添加它。

use autodie;

## It dies.
open my $fh, '<', 'nonfile.txt';