Modi per fare scadenze in Perl?

Question

Io uso spesso il seguente schema per impostare un limite superiore per il tempo di esecuzione di un particolare frammento di codice in Perl:

my $TIMEOUT_IN_SECONDS = 5; 
eval { 
    local $SIG{ALRM} = sub { die "alarm\n" }; 
    alarm($TIMEOUT_IN_SECONDS); 
    # do stuff that might timeout. 
    alarm(0); 
}; 
if ($@) { 
    # handle timeout condition. 
} 

Le mie domande:

• È questo il modo giusto per farlo?
• Ci sono circostanze in cui il tempo di esecuzione può superare $ TIMEOUT_IN_SECONDS, o il metodo di cui sopra è a prova di proiettile?

Answer 1

probabilmente avrete bisogno di guardare Sys::SigAction. Non l'ho usato da solo, ma ha some glowing reviews.

Una cosa a cui fare attenzione è che se "roba che potrebbe timeout" utilizza sleep o alarm stesso. Inoltre, nel codice di gestione degli errori, presumo che tu sia preparato per errori diversi da un timeout.

Answer 2

Fare attenzione alla gestione del segnale. Perl riceve segnali in modo asincrono e possono essere persi o interferire l'uno con l'altro se viene ricevuto un segnale mentre un altro segnale viene gestito dalla richiamata. Supporto Win32

librerie di gestione degli eventi è abbastanza così così in Perl (devo sostenere non Cygwin Win32), così ho generalmente utilizzare un ciclo di polling semplice per i timeout:

use Time::HiRes qw(sleep); 

sub timeout { 
    my $timeout = shift; 
    my $poll_interval = shift; 
    my $test_condition = shift; 
    until ($test_condition->() || $timeout <= 0) { 
    $timeout -= $poll_interval; 
    sleep $poll_interval; 
    } 
    return $timeout > 0; # condition was met before timeout 
} 

my $success = timeout(30, 0.1, \&some_condition_is_met); 

Il timer di spegnimento può essere facilmente reso configurabile dall'utente o del chiamante e, a meno che non si stia facendo un ciclo estremamente stretto o si abbiano più chiamanti in attesa sul loop (dove si può finire con una gara o blocco morto), è un semplice, affidabile e incrociato -modo semplice per implementare un timeout.

Si noti inoltre che l'overhead del loop significa che non è possibile garantire che il timeout sia osservato in modo assoluto. $ test_condition, il decremento, la garbage collection, ecc. possono interferire.

Answer 3

Si potrebbe anche provare Time::Out. Mi piace la sintassi e i timeout nidificati sono supportati ..