J'essaie de créer un client DHCP en Perl. L'objectif étant que je puisse interroger un serveur DHCP avec un timeout réglable, et spécifier un certain nombre de tentatives max.
 
Pas de soucis particuliers pour envoyer / recevoir les requêtes via des sockets. Le souci qui se pose pour moi est de limiter le(la-les, je sais jamais si c'est masculin ou féminin) socket en réception pour qu'il n'écoute qu'un nombre déterminé de secondes.
 
Je me suis donc dit, utilisons les threads. Je lance un thread contenant la logique de mon client DHCP, puis dans le programme principal je fais un sleep() puis j'essaie d'envoyer un signal au thread afin qu'il stoppe.
 
En code, ca donne ca :
 

 
Souci, cela ne marche pas. Le join() bloque indéfiniment.
 
Deuxième question subsidiaire : y'a quoi de mieux pour nettoyer mon thread proprement avant de quitter ? je pensais mettre les sockets ouverts dans un tableau, pour pouvoir les close() avant de quitter.

use Coro;
 
A+,

Je vais regarder ca, mais je reste curieux de savoir pourquoi ce que j'essaie de faire avec des threads ne marche pas.

Up. C'est moi ou Coro n'est pas adapté a ce que je veux faire ? A priori c'est adapté pour faire du multithread coopératif, et j'ai besoin d'un comportement préemptif.

En lisant un peu la doc, j'ai plutôt l'impression que ton code devrait plutôt ressembler à ceci:
my $client = threads->new(\&ClientDHCP);
if ($client->is_running()) {
   sleep($o_timeout);
}
if ($client->is_joinable()) {
   $client->join();
}  
else {
  $client->kill('TERM')->detach();
}
exit 0;  
 
A+,

That's right, ca a l'air de marcher beaucoup mieux. Merci.