Discussion :

[piotr]

Bonjour à tous, je cherche à faire un programme qui me permette de connaitre si un site est disponible (en consultant l'entête de réponse: 200=OK, 404= indispo..)
j'ai un problème avec le code ci-dessous: est-ce que l'adresse est trop longue? comme y remédier?

merci de votre aide


use Net::HTTP;

$s = Net::HTTP->new(Host => "lists.slimdevices.com/archives/checkins/2004-April/001738.html") || die $@;
$s->write_request(GET => "/");
my($code, $mess, %h) = $s->read_response_headers;
print $code;

[piotr]

j'ai oublié de préciser que le message d'erreur est Bad Hostname

[Mr6]

Je n'ai jamais utilisé ce module (j'utilise plutôt LWP) mais si tu avais plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
$s = Net::HTTP->new(Host => "lists.slimdevices.com") || die $@;
$s->write_request(GET => "/archives/checkins/2004-April/001738.html");

je pense que ca pourrait déjà un peu plus le faire

@+
Mr6

[piotr]

merci, ça marche en procédant ainsi!!

a+