Alerte Perl() ou Time :: Out Without Kernel SIG

Question

J'ai un script qui se comporte mal à l'occasion lors de la communication avec un serveur web. Le serveur se bloque ou est très lent à répondre avec des données.

J'utilise actuellement alarm() comme un hack pour terminer le script afin de ne pas inonder le système de threads, mais cela provoque une erreur cron, qui alerte le sysadmin, qui ne veut vraiment pas les 200 emails Cela produit lorsque le système est tombé.

Existe-t-il une méthode alternative pour terminer un script (ou apiQuery, si nécessaire) qui ne provoquera pas une sortie non-OK et l'email correspondant?

Answer 1

Vous pouvez lever une exception dans votre gestionnaire de signal, et l'attraper ailleurs.

my $success = eval { 
    local $SIG{ALRM} = sub { die "Failure" }; 
    alarm 10; 
    do_something_long(); 
    alarm 0; 
    1; 
}; 
if (!$success) { 
    warn "Timeout!\n" if $verbose; 
    exit 0; 
}