如何在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