Perl WWW :: Mechanize(或LWP)获取重定向URL

前端之家收集整理的这篇文章主要介绍了Perl WWW :: Mechanize(或LWP)获取重定向URL前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
所以我使用WWW :: Mechanize来抓取网站.它工作得很好,除非我要求一个网址,例如: @H_403_2@http://www.levi.com/

我被重定向到:

@H_403_2@http://us.levi.com/home/index.jsp

对于我的脚本,我需要知道这个重定向发生了,我被重定向的网址是什么.无论如何使用WWW :: Mechanize或LWP检测到这个,然后获取重定向的URL?谢谢!

解决方法

@H_403_2@use strict; use warnings; use URI; use WWW::Mechanize; my $url = 'http://...'; my $mech = WWW::Mechanize->new(autocheck => 0); $mech->max_redirect(0); $mech->get($url); my $status = $mech->status(); if (($status >= 300) && ($status < 400)) { my $location = $mech->response()->header('Location'); if (defined $location) { print "Redirected to $location\n"; $mech->get(URI->new_abs($location,$mech->base())); } }

如果状态代码是3XX,那么您应该检查重定向URL的响应头.

猜你在找的Perl相关文章