Perl的異常而不是返回值

Question

在一些Perl腳本，我發現自己寫的東西，如：

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

等

我想避免重複自己在每一個可能的例外年底說or die ... 。

有沒有辦法強制像open()等功能發生異常時，他們的錯誤，而不只是一個錯誤的返回值？然後，我可以一口氣抓住所有可能的例外。

Answer 1

是的。它存在一個使這些指令死於錯誤的模塊，它被稱爲autodie。在腳本的開頭添加它。

use autodie; 

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