如何在Perl中重定向后找到最终的URL？

Question

假设我有“http://www.ritzcarlton.com”并将我重定向到“http://www.ritzcarlton.com/en/Default.htm”。 Perl有没有办法在所有重定向后找到结束URL？

Answer 1

使用LWP将遵循重定向。然后，您可以询问HTTP::Request对象以找出它请求的URI。

use LWP::UserAgent qw();

my $ua = LWP::UserAgent->new;

my $response = $ua->get('http://www.ritzcarlton.com');

print $response->request->uri . "\n";

输出是：

  

http://www.ritzcarlton.com/en/Default.htm

Answer 2

如果您自己发出HTTP请求，则重定向URL将位于返回的Location:标头中。如果您正在使用正确的HTTP客户端，例如LWP::UserAgent或WWW::Mechanize，那么您应该这样做，重定向会自动处理。