Quali modifiche, se ve ne sono, sono necessarie per rendere il seguente Perl Eval bullet proof?

Question

eval { 
    # here is put some code that may throw exception 
    return 1; 
} or do { 
    my $error = $@; 
    # Handle error. 
}; 

1. Ha il seguente stile proteggere contro $ @ non essere impostato correttamente?
2. Cosa significa "1;" proteggere contro?
3. Il "o do {" è migliore del proverbio "if ($ @) {"? Se è così, perché?

Answer 1

Vedere la documentazione Try::Tiny per la discussione delle cose che possono andare male quando si utilizza eval come una dichiarazione try tipo, come possono essere evitati, e perché il codice scritto si conclude con 1 (per garantire il blocco eval restituisce un vero valore se completa con successo).

Dopo averlo letto, prendere in considerazione l'utilizzo di Try :: Tiny invece di passare attraverso tutte le rotazioni per assicurarsi che ciascuno dei tuoi eval funzioni correttamente come try. La pigrizia è il first great virtue di un programmatore, dopo tutto.

Answer 2

Si potrebbe scrivere sopra eval come,

my $result = eval { 
    # here is put some code that may throw exception 
    1; # Why is the "1;" here ? 
}; 

In questo caso $result sarà 1 solo se non c'era un'eccezione all'interno eval, ed al contrario undef.

Quindi in questo caso particolare, assicura che or do {..} non venga eseguito se non ci sono state eccezioni.

if ($@) {..} è forse un modo più idiomatico di fare la stessa cosa, e $@ è sempre impostato quando eval{..} fallisce.

Answer 3

Cosa cambia, se del caso, sono tenuti a fare la seguente Perl prova di proiettile eval?

se ricordo bene, se vi preoccupate per il contenuto di $ @ (e non solo se sia vero o no) è inoltre necessario fare attenzione a $ @ sovrascrittura da altro codice che muore prima di guardare (vedi risposta alla 1. sotto).

1. Ha il seguente stile proteggere contro $ @ non essere impostato correttamente?

Sì, $ @ può essere sovrascritto nel tempo tra la eval e if. Il caso più comune per questo, se non ricordo male, è il metodo DELETE di un oggetto che sta andando fuori ambito (perché era nell'eval) usando un successo eval.

Cosa significa "1;" proteggere contro?

Il valore vero costante (non deve essere 1) è lì per garantire che il blocco eval restituisca un valore vero. Se il codice nel blocco muore, il blocco restituisce una stringa vuota e viene eseguito il blocco do.Se sei certo che l'ultima affermazione nel blocco sarà sempre vera, allora non è necessaria; tuttavia, non vi è alcun motivo per non essere solo sicuri del valore costante.

Il "o do {" è migliore del proverbio "if ($ @) {"? Se è così, perché?

Evita di dover memorizzare il valore di ritorno del blocco eval. Si potrebbe dire

my $result = eval { 
    #do stuff 
    1; 
}; 
unless ($result) { 
    # handle error 
}