Salut, je bricole un script Perl qui test que le serveur web en paramètre soit en vie.
Je précise, je connais pas bien perl, et j'ai trouvé la doc de Net:HTTP très succinte.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
  my $http = Net::HTTP->new("$host:$port")
	|| die $@;
  $http->write_request(GET =>  'unepage.htm');
je reçois une réponse "Net:HTTP Timeout" instantanée.

Or, depuis le même serveur qui exécute ce script perl je ping le serveur web, je fais un lynx dessus... sans problèmes.

Est-ce qu'il y a un moyen de dire un temps de connexion limite avant de jeter un timeout ? du genre « si dans les 3 secondes t'es pas connecté, alors oui jette un timeout. Mais si t'arrives à te connecter en une seconde, c'est OK. »

Merci d'avance