¿Cómo puedo evitar que WWW :: Mechanize siga los redireccionamientos?

Question

Tengo un script Perl que usa WWW::Mechanize para leer desde un archivo y realizar algunas tareas automatizadas en un sitio web. Sin embargo, el sitio web utiliza un redireccionamiento 302 después de cada vez que solicito una determinada página. No quiero ser redireccionado (la página a la que redirige tarda demasiado para responder); Solo quiero recorrer el archivo y llamar al primer enlace una y otra vez. No puedo entender cómo hacer que WWW :: Mechanize NO siga los redireccionamientos. ¿Alguna sugerencia?

Answer 1

WWW::Mechanize es una subclase de LWP::UserAgent. Entonces puede usar cualquier método LWP::UserAgent.

my $mech = WWW::Mechanize->new(); 
$mech->requests_redirectable([]); 

Answer 2

WWW :: Mechanize es una subclase de LWP :: UserAgent; puede establecer las opciones max_redirect o requests_redirectable en el constructor como lo haría con LWP :: UserAgent.

Answer 3

Puede utilizar $ agent-> max_redirect (0) ;, como en este ejemplo:

#!/usr/bin/perl -w 
use strict; 

use WWW::Mechanize; 

my $agent = WWW::Mechanize->new('autocheck' => 1, 'onerror' => undef,); 
$agent->max_redirect(0); 
$agent->get('http://www.depesz.com/test/redirect'); 
printf("Got HTTP/%s from %s.\n", $agent->response->code, $agent->uri); 

$agent->max_redirect(1); 
$agent->get('http://www.depesz.com/test/redirect'); 
printf("Got HTTP/%s from %s.\n", $agent->response->code, $agent->uri); 

Cuando se ejecuta imprime:

Got HTTP/302 from http://www.depesz.com/test/redirect. 
Got HTTP/200 from http://www.depesz.com/. 

Así, con max_redirect (0) - se claramente no sigue redirecciones.