Digamos que tengo "http://www.ritzcarlton.com" y eso me redirecciona a "http://www.ritzcarlton.com/en/Default.htm". ¿Hay alguna forma en Perl para encontrar la URL final después de todas las redirecciones?¿Cómo puedo encontrar la URL final después de todas las redirecciones en Perl?
El uso de LWP seguirá las redirecciones por usted. A continuación, puede interrogar al objeto HTTP::Request para averiguar el URI que solicitó.
use LWP::UserAgent qw();
my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://www.ritzcarlton.com');
print $response->request->uri . "\n";
de salida es:
Si está emitiendo solicitudes HTTP usted mismo, entonces la URL de redirección estará en el encabezado Location: devuelto. Si está utilizando un cliente HTTP adecuado como LWP::UserAgent o WWW::Mechanize, que es lo que debe hacer, la redirección se maneja automáticamente.