Leer documentos via HTTP (2)

Código Final

#!/usr/bin/perl -w

use strict;
use CGI::Carp qw(fatalsToBrowser);

use LWP::UserAgent;
use HTTP::Request;

my $ua = LWP::UserAgent->new;
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");

my $url = "http://baboonsoftware.com/";

my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);
my $content = $response->content();

print "Content-type: text/htmlnn";
print $content;

Usuarios que han visto este tema también han visto...

- Objetos en PERL 6
- Funcionesde Perl
- Ejemplos en perl.
- Redirección de acuerdo a la resolución de la pantalla
- Uso de Loops en Perl

- Versión imprimible de este documento

- Enviar por e-mail este documento