Perl WWW:: Mechanize(o LWP) recibe una URL de redireccionamiento

redirect www-mechanize

Question

Así que estoy usando WWW::Mechanize para rastrear sitios. Funciona muy bien, excepto si solicito una url como:

http://www.levi.com/

Me redirigen a:

http://us.levi.com/home/index.jsp

Y para mi script, necesito saber que este redireccionamiento tuvo lugar y que URL fue redirigido a. ¿Hay alguna forma de detectar esto con WWW::Mechanize o LWP y luego obtener la URL redirigida? ¡Gracias!

Answer 1

use strict;
use warnings;
use URI;
use WWW::Mechanize;

my $url = ''http://...'';
my $mech = WWW::Mechanize->new(autocheck => 0);
$mech->max_redirect(0);
$mech->get($url);

my $status = $mech->status();
if (($status >= 300) && ($status < 400)) {
  my $location = $mech->response()->header(''Location'');
  if (defined $location) {
    print "Redirected to $location/n";
    $mech->get(URI->new_abs($location, $mech->base()));
  }
}

Si el código de estado es 3XX , entonces debe verificar los encabezados de respuesta para la URL de redirección.