Discussion :

[iubito]

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

[iubito]

arf je suis un

y'avait dans le script une initialisation de $port à 8080, avec le port 80 ça marche mieux

[Seb_de_lille]

A ce propos, j'ai besoin de me faire un mini serveur http en perl, est ce que net::http pourrait faire l'affaire? sinon, y a t'il un module qui peut faire ça?

[iubito]

crée plutôt un autre topic, parce que celui-ci est marqué pour délestage. Et comme j'y connais rien en perl, j'aurai du mal à t'aider.