Gestion de Timeout Perl

Bonjour,
J’aurais besoin de votre avis sur ce script perl pour me permettre de savoir si la logique du script est correcte.

J’ai appliqué ce modèle de script pour me permettre de faire appel a des fonctions pour un temps d'execution egal a 60 secondes maximum.

Si les fonctions mettent plus de 60 secondes au total pour finir leurs instructions, le script passe en traitement d’erreur.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl   eval { local $SIG{ALRM} = sub { die "TIMEOUT" }; alarm 60; # on se donne 60 secondes #Appel des fonctions... alarm 0; # annulation du compteur }; if ( $@ and $@ !~ /TIMEOUT/ ) { # traitement d'erreur... }

---

N'oublie pas de remettre un alarm 0 après le bloc (pour le cas où il y a eu un die d'une autre origine), ou encore mieux utilise Object::Destroyer (cet article explique très bien le principe).

--
Jedaï

Merci, ca va donc ressembler a :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

#!/usr/bin/perl   eval { local $SIG{ALRM} = sub { die "TIMEOUT" }; alarm 60; # on se donne 60 secondes #Appel des fonctions... alarm 0; # annulation du compteur }; if ( $@ and $@ !~ /TIMEOUT/ ) { # traitement d'erreur... } alarm 0;

---

Humm... Tu n'as pas lu l'article que je t'ai indiqué je pense... Ta solution n'est pas trop mauvaise (il peut y avoir d'autres problèmes selon le code dans le eval() et il vaudrait mieux mettre le alarm(0) avant le if($@) du traitement d'erreur mais la plupart du temps ça devrait aller), mais une solution vraiment béton et simple à mettre en place serait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

use Object::Destroyer;   eval{ local $SIG{ALRM} = sub { die "Timed out\n" }; alarm(5); my $sentry = Object::Destroyer->new( sub {alarm(0)} ); long_running_code(); }; if( $@ ) { #... }

---

Object::Destroyer est du pur Perl et consiste en un seul fichier .pm, donc quel que soit ta situation, il est extrèmement facile de l'utiliser.

--
Jedaï

c'est parfait!

bon j'avoues... j'ai eu un peu la flemme de lire l'article, je ne suis pas passionne par Perl et c'est purement exceptionnel pour moi de programmer avec, donc je n'ai pas fait mon curieux ;-)

merci pour ton aide !

Si tu utilises souvent ce bloc avec timeout, penses à le mettre dans un module à toi (d'habitude lorsque je travaille à un projet, j'ai toujours un petit module MyTools.pm pour les petites fonctions pratiques), comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

package MyTools;   use base 'Exporter'; our @EXPORT = qw(timeout);   use Object::Destroyer;   sub timeout { my ($delay, $block) = @_; eval{ local $SIG{ALRM} = sub { die "Timed out\n" }; alarm($delay); my $sentry = Object::Destroyer->new( sub {alarm(0)} ); $block->(); }; }   __DATA__

---

A utiliser comme ça :

Code:

---

1 2 3 4 5 6

use MyTools;   timeout 5, sub { for(my $i = 0;;$i++) { print "ok $i\n"; sleep 1; } }; if($@ =~ m/Timed out/) { #... }

---

--
Jedaï