Perl eccezioni, invece di restituire i valori

Question

In alcuni script Perl mi ritrovo a scrivere cose del tipo:

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

ecc

vorrei evitare di ripetermi dire or die ... alla fine di ogni possibile eccezione .

C'è un modo per forzare funzioni come open() ecc. Per generare un'eccezione quando si tratta di un errore, non solo un falso valore di ritorno? Quindi ho potuto catturare tutte le possibili eccezioni in un colpo solo.

Answer 1

Sì. Esiste un modulo che fa morire quelle istruzioni su un errore, si chiama autodie. Aggiungilo all'inizio del tuo script.

use autodie; 

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