Perl wyjątki zamiast zwracać wartości

Question

W niektórych skryptów Perl znajdę się pisać takie rzeczy jak:

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

itp

Chciałbym uniknąć powtarzania się mówiąc or die ... na końcu każdego możliwego wyjątkiem .

Czy istnieje sposób na wymuszenie funkcji, takich jak open() itp., Aby zgłaszać wyjątki w przypadku wystąpienia błędu, a nie tylko fałszywej wartości zwracanej? Wtedy za jednym zamachem mogłem złapać wszystkie możliwe wyjątki.

Answer 1

Tak. Istnieje moduł, który sprawia, że ​​instrukcje te giną w wyniku błędu, nazywa się autodie. Dodaj go na początku skryptu.

use autodie; 

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