[PERL] processus fils

Bonjour,

j'ai un script perl qui démarre des processus fils (commande fork), quand celui ci se termine un nouveau est lancé etc ...
Le père lui se contente de superviser le tout :)
Cette manière permet s'il arrive quelque chose à un des fils de pouvoir continuer l'exécution.

Le problème qui se pose est lorsqu'un fils reste bloqué, j'aimerais pouvoir le tuer.
Existe t'il un moyen de mettre un timeout à un processus fils, par exemple via un compteur du temps écoulé depuis sa création ou autre ??

N'as tu pas moyen d'enregistrer la date de création du fils dans le père, et de contrôler par différence de date s'il dure trop longtemps pour lui envoyer un signal ?
Tu peux par exemple utiliser la commande "time" qui retourne une valeur numérique en seconde depuis Epoch (en utilisant Time::HiRes qw(time), tu obtiens une valeur décimale à la microseconde près).

c'est ce que j'ai fait, j'ai fait un time juste après le fork dans la partie père