Perl, fait un délai de script après x nombre de secondes?

Question

J'ai cherché sur ceci mais il est étonnamment difficile de venir par une réponse directe à ceci (comme php a beaucoup plus d'information sur ce sujet il semble) .. Je dois faire mon manuscrit de Perl après un nombre spécifié de secondes parce que, comme c'est le cas maintenant, ils fonctionnent trop longtemps et obstruent mon système, comment puis-je faire en sorte que l'ensemble du script meurt juste après un certain nombre de secondes?

Je connais des solutions externes pour tuer le script, mais je voudrais le faire depuis le script perl lui-même.

Merci

Answer 1

perldoc -f alarm:

[sinan@kas ~]$ cat t.pl 
#!/usr/bin/perl 

use strict; use warnings; 

use Try::Tiny; 

try { 
     local $SIG{ALRM} = sub { die "alarm\n" }; 
     alarm 5; 
     main(); 
     alarm 0; 
} 
catch { 
     die $_ unless $_ eq "alarm\n"; 
     print "timed out\n"; 
}; 

print "done\n"; 

sub main { 
     sleep 20; 
} 

Sortie:

[sinan@kas ~]$ time perl t.pl 
timed out 
done 

real 0m5.029s 
user 0m0.027s 
sys  0m0.000s

Answer 2

Voir alarm en perldoc:

eval { 
    local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required 
    alarm $timeout; 
    $nread = sysread SOCKET, $buffer, $size; 
    alarm 0; 
}; 
if ($@) { 
    die unless $@ eq "alarm\n"; # propagate unexpected errors 
    # timed out 
} 
else { 
    # didn't 
}