Perl 异常而不是返回值

Question

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

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

等等

我想避免重复自己说 or die ...在每个可能的异常结束时。

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

Answer 1

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

use autodie;

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