Foro - Perl en Español

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...

Pero... ¿qué tecnología estás usando? ¿CGI, WWW::Mechanize, LWP::UserAgent...?

La web usa PHP, quiero tratar de hacerlo con LWP o HTTP.

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.

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...

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



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

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

Funcionó, gracias...