Foro - Perl en Español

por **erv-Z** » 2010-03-15 17:07 @755

Buenas, necesito hacerle una petición GET a una redirección, o sea, hago esto:

Hago una petición GET
Luego me redirige

Y a la redirección le quiero hacer la petición GET, el estatus HTTP es 302 -> que es el de redirección...

Madre mía, qué follón tienes montado...

* Te he preguntado por la tecnología que vas a usar desde tu lado, no la que está funcionando en el lado del servidor, con PHP

* PHP es un lenguaje, LWP es un módulo de Perl y HTTP es un protocolo, así que en una frase has mezclado cosas que no tienen que ver entre sí, para resolver el problema

Lo de la tecnología a usar es importante...

* Si usas el módulo CGI, puedes hacer uso de la función redirect() para hacer el salto

* Si usas LWP, deberás ver la respuesta del servidor, si es un 302, deberás leer la cabecera HTTP y buscar por Location, y luego hacer el GET de la URL indicada por él, teniendo en cuenta los casos de que la URL te la den en forma absoluta o relativa

* Si usas WWW::Mechanize, no tienes que hacer nada.

por **erv-Z** » 2010-03-15 19:23 @849

Bien, explorer, no sabía que aparecía el campo Location en las cabeceras, y la acabo de revisar y sí, pero el problema es que no puedo leer las respuesta HTTP porque uso el módulo HTTP::Request::Common para completar un formulario + envío cabeceras y no me deja leer las respuesta de la cabeceras con la misma función que antes xD...

por **explorer** » 2010-03-15 19:49 @867

HTTP::Request::Common devuelve un objeto HTTP::Request, así que sí tienes acceso a las cabeceras, con la función header():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
 
use LWP::UserAgent;
use HTTP::Request::Common;
 
my $ua = LWP::UserAgent->new;
 
my $response = $ua->request(GET 'http://el.dominio.malo/');
 
say $response->header('Location');
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

(Sacado de la documentación de HTTP::Request::Common y HTTP::Request).

P.D.: es más cómodo usar WWW::Mechanize

por **erv-Z** » 2010-03-16 14:33 @648

Funcionó, gracias...

Foro - Perl en Español

Peticion GET a una redirección

Peticion GET a una redirección

Publicidad

Re: Peticion GET a una redirección

Re: Peticion GET a una redirección

Re: Peticion GET a una redirección

Re: Peticion GET a una redirección

Re: Peticion GET a una redirección

Re: Peticion GET a una redirección

¿Quién está conectado?