Perl WWW :: Mechanize(或LWP)获取重定向URL
发布时间:2020-12-15 21:16:09 所属栏目:大数据 来源:网络整理
导读:所以我使用WWW :: Mechanize来抓取网站.它工作得很好,除非我要求一个网址,例如: http://www.levi.com/ 我被重定向到: http://us.levi.com/home/index.jsp 对于我的脚本,我需要知道这个重定向发生了,我被重定向的网址是什么.无论如何使用WWW :: Mechanize或
所以我使用WWW :: Mechanize来抓取网站.它工作得很好,除非我要求一个网址,例如:
http://www.levi.com/ 我被重定向到: http://us.levi.com/home/index.jsp 对于我的脚本,我需要知道这个重定向发生了,我被重定向的网址是什么.无论如何使用WWW :: Mechanize或LWP检测到这个,然后获取重定向的URL?谢谢! 解决方法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 $locationn"; $mech->get(URI->new_abs($location,$mech->base())); } } 如果状态代码是3XX,那么您应该检查重定向URL的响应头. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |