lunes, 9 de septiembre de 2013

Conexión http con el módulo LWP::Simple de Perl

En este ejemplo vamos a realizar una conexión simple http mediante una de las clases que vienen integradas en la librería LWP, concretamente la clase Simple, mediante esta clase y sus métodos get y head realizaremos una petición http para recibir tanto el cuerpo HTML, como las CABECERAS de la web solicitada. Para obtener más información sobre este módulo puedes ir a la siguiente url -> http://search.cpan.org/~gaas/libwww-perl-6.05/lib/LWP/Simple.pm, el siguiente programa necesitará de un parámetro que es la url para poder realizar la petición -> perl http-simple.pl http://www.google.com

http-simple.pl


#Conexión http simple
use LWP::Simple;
use strict;

#Entrada de la url
my $url = $ARGV[0];

if (!@ARGV)
{
print "Deber indicar una url ejemplo -> http-simple.pl http://www.google.com \n";
}
else
{
#Conecta con la url recorriendo todo el cuerpo html
my $html = get($url);

#Regresa el contenido html de la web
print $html;

print "\n \n";

#Conecta con la url regresando las cabeceras http
my ($content_type, $document_length, $modified_time, $expires, $server) = head($url);

#regresa las cabeceras de la web
print "content-type: $content_type\n";
print "document-length: $document_length\n";
print "modified-time: $modified_time\n";
print "expires: $expires\n";
print "server: $server\n";