Foro - Perl en Español

por **erv-Z** » 2010-03-14 17:38 @776

Buenas, quisiera saber cómo capturar o imprimir las respuesta HTTP del servidor web.

#!/usr/bin/perl
use common::sense;
 
use LWP::Simple;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->agent("$0/0.1 " . $ua->agent);
 
my $req = HTTP::Request->new(GET => 'http://www.google.es');
$req->header('Accept' => 'text/html');
 
# mandar petición
my $res = $ua->request($req);
 
# comprobar la respuesta
if ($res->is_success) {
    my @cabeceras = $res->header_field_names();      # lista de cabeceras
    for my $cabecera (@cabeceras) {
        say "$cabecera : ", $res->header($cabecera); # las pintamos, y su contenido
    }
}
else {
   print "Error: " . $res->status_line . "\n";
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

sale:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Cache-Control : private, max-age=0

Connection : close

Date : Mon, 15 Mar 2010 00:33:56 GMT

Server : gws

Content-Type : text/html; charset=ISO-8859-1

Expires : -1

Client-Date : Mon, 15 Mar 2010 00:33:56 GMT

Client-Peer : 209.85.229.99:80

Client-Response-Num : 1

Set-Cookie : PREF=ID=f0c66f0cf16fadf7:TM=1268613236:LM=1268613236:S=we00T44nAtqLcBjA; expires=Wed, 14-Mar-2012 00:33:56 GMT; path=/; domain=.google.esNID=32=GcGb2kkx1bSTBPvr5Chu6ydnmaIBLwEkuIRH0GbsdZppvcG6o40IIFDO2LUE_aEnua0mut9MGanQPWQ9-MpCTL8XKZOXllWE2S3rA-8Pt1JShOQwvZ7WYzXQ_DK6zUNN; expires=Tue, 14-Sep-2010 00:33:56 GMT; path=/; domain=.google.es; HttpOnly

Title : Google

X-XSS-Protection : 0Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **erv-Z** » 2010-03-15 13:08 @588

Uuuu, grandioso, aunque no encontre el header_field_names() en la documentacio...

Foro - Perl en Español

Capturar las respuestas HTTP

Capturar las respuestas HTTP

Publicidad

Re: Capturar las respuestas HTTP

Re: Capturar las respuestas HTTP

¿Quién está conectado?