Verifier l'existance d'une URL sans la telecharger

JalaL wrote:

Bonjour a tous,

Je voudrais savoir s'il y a un moyen de verifier si une URL existe sans
telecharger son contenu avec PERL.

Merci


mark@owl:~$ cat testhead.pl

use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

while(my $host = <DATA>){
chomp $host;

my $response = $mech->head($host);
my $success = $response->is_success();
my $content = $response->content();
chomp $content;
print "host=$host content=$content success="
.($success?"yes":"no")."n";

}
__END__
http://www.google.com
http://www.totallymadeupaddress.com

mark@owl:~$ perl testhead.pl
host=http://www.google.com content= success=yes
host=http://www.totallymadeupaddress.com contentP0 Can't connect to
www.totallymadeupaddress.com:80 (Bad hostname
'www.totallymadeupaddress.com') success=no

mark@owl:~$

En fait, avec "head" on télécharge pas le contenu.

Mark

"Mark Clements" <mark.clementsREMOVETHIS@wanadoo.fr> a écrit dans le message
de news: 45df36ca$0$5085$ba4acef3@news.orange.fr...

mark@owl:~$ cat testhead.pl
use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new();

while(my $host = <DATA>){
chomp $host;

my $response = $mech->head($host);
my $success = $response->is_success();
my $content = $response->content();
chomp $content;
print "host=$host content=$content success="
.($success?"yes":"no")."n";

}
__END__
http://www.google.com
http://www.totallymadeupaddress.com

mark@owl:~$ perl testhead.pl
host=http://www.google.com content= success=yes
host=http://www.totallymadeupaddress.com contentP0 Can't connect to
www.totallymadeupaddress.com:80 (Bad hostname
'www.totallymadeupaddress.com') success=no

mark@owl:~$

En fait, avec "head" on télécharge pas le contenu.

Mark

Super, je vais tester ca, merci encore une fois