Perl: errore di cattura senza morire

Question

Sto giocando con la gestione degli errori e ho un piccolo problema. Mi collego con un database usando il modulo DBI.

Faccio la mia gestione degli errori utilizzando una subroutine che richiamo un errore.

posso prendere i miei stampi e gestirli bene, ma quando la mia connessione al database non riesce, il modulo DBI apparentemente stampa fuori di essa la propria filiera:

DBI connect(...) failed: ORA-12154: TNS:could not resolve the connect identifier specified (DBD ERROR: OCIServerAttach) at ...

Come potrei fare per la cattura di questo?

Ho provato ad utilizzare $SIG{__DIE__} in questo modo:

local $SIG{__DIE__} = sub { 
    my $e = shift; 
    print "Error: " .$e; 
}; 

Questa è sul fondo del mio file principale, in questo file anche io chiamo la subroutine di connessione che è disponibile in un modulo della mia. Ho anche provato a mettere questo pezzo di codice sul fondo del mio modulo, ma le stampe ancora l'errore senza il

Error:

di fronte ad essa.

Answer 1

Va bene, trovato la soluzione, a quanto pare avevo bisogno __WARN__ invece di __DIE__ e questo pezzo di codice necessario per essere nella parte superiore del file, prima dove è stato gettato l'errore, a differenza l'esempio che ho letto affermato :)

Answer 2

Ci sono molti switch in DBI, come PrintError, RaiseError, ecc. Che è possibile regolare. Vedi http://search.cpan.org/perldoc?DBI

Answer 3

Questo non è così generico come un raccoglitore di fustelle complessivo, ma in particolare per la gestione degli errori DBI abbiamo in realtà un nostro modulo che fornisce i wrapper attorno alle chiamate al database; e una delle funzionalità del modulo è di avvolgere eval (in base a un flag) attorno a ciascuna chiamata DBI.

Questo ci consente di eseguire la gestione personalizzata degli errori sul livello di accesso ai dati, ad esempio tentativi di query, statistiche, failover automatico e altro - tutto trasparente per il resto del codice.

Answer 4

DBI connect(...) failed: ORA-12154: TNS:could not resolve the connect identifier specified (DBD ERROR: OCIServerAttach) at ...

How would I go about catching this ?

Per catturare e gestire questo livello di errore, utilizzare eval in forma di blocco, "eval {...}". Questo catturerà qualsiasi dado che accade nel sottocodice. Se il codice all'interno di un blocco eval muore, verrà impostato $ @ e il blocco restituirà false. Se il codice non muore, $ @ verrà impostato su "".

L'utilizzo della gestione dei segnali tramite SIG {WARN} e SIG {DIE} è problematico dal momento che sono globali, ci sono anche condizioni di gara da considerare (cosa succede se ottengo un segnale mentre gestisco un segnale diverso? Ecc. I problemi tradizionali del calcolo basato sul segnale). Probabilmente stai scrivendo un codice a thread singolo, quindi non sei preoccupato dei problemi di concorrenza di più cose che chiamano morire, ma c'è un utente da considerare (forse invierà un SIGKILL mentre stai provando ad aprire la connessione DBI)

In questo caso specifico, si utilizza DBI. Con DBI, puoi controllare cosa succede in caso di errore, se deve morire, avvertire o fallire silenziosamente e attendere che tu controlli lo stato di ritorno.

Ecco un esempio di base dell'utilizzo di eval {...}.

my $dbh = eval { DBI->connect(@args) }; 
if ($@) 
{ 
    #DBI->connect threw an error via die 
    if ($@ =~ m/ORA-12154/i) 
    { 
     #handle this error, so I can clean up and continue 
    } 
    elsif ($@ =~ m/SOME \s* other \s* ERROR \s+ string/ix) 
    { 
     #I can't handle this error, but I can translate it 
     die "our internal error code #7"; 
    } 
    else 
    { 
     die $@; #re-throw the die 
    } 
} 

Ci sono alcuni problemi minori con l'utilizzo di eval in questo modo, che ha a che fare con lo scopo globale di $ @. La pagina cpan Try::Tiny ha un'ottima spiegazione. Prova :: Tiny gestisce una configurazione di blocco Try/catch minima e gestisce la localizzazione di $ @ e la gestione degli altri casi limite.

Answer 5

includere questo nella vostra SIG{__DIE__} blocco:

### Check if exceptions being caught. 
return if $^S; 

Questo eviterà che il tuo gestore di essere utilizzato su codice di eccezione-based che genera un dado all'interno di un blocco eval.