可以说我有“http://www.ritzcarlton.com“这将我重定向到”http://www.ritzcarlton.com/en/Default.htm“。 Perl 有没有办法在所有重定向后找到最终网址?
使用 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
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)