quarta-feira, 15 de junho de 2011

Script para HEAD de servidores web

Aqui está uma forma simples de fazer HEAD a um servidor web:


#!/usr/bin/perl -w

use strict;
use Net::Telnet;

my $hostname = $ARGV[0];
my $port = 80;

my $t = new Net::Telnet (Timeout => 10);
$t->open(Host => $hostname, Port => $port);

$t->print("HEAD / HTTP/1.0\n");
$t->print("Host: $hostname\n\n");

print "-> Hostname $hostname\n";
print while ($_ = $t->getline);
print "\n";


Para correr, basta
$ chmod +x script.pl; ./script.pl site

Sem comentários:

Enviar um comentário