Perl异常而不是返回值

Question

在一些perl脚本中，我发现自己写的是：

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

等

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

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

Answer 1

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

use autodie;

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