Perl：LWP :: UserAgent总是为重定向的URL返回代码200

发布时间：2020-12-15 21:52:45 所属栏目：大数据来源：网络整理

导读：我有一个简单的网址,它有302临时性.转到另一页. 如果URL返回代码200(对于OK)以检索它并且如果返回除200之外的其他内容,则尝试进入. 我的代码： my $ua = LWP::UserAgent-new( env_proxy = 1,keep_alive = 1,timeout = 30,agent = "Mozilla/4.76 [en] (Win98;

我有一个简单的网址,它有302临时性.转到另一页.

如果URL返回代码200(对于OK)以检索它并且如果返回除200之外的其他内容,则尝试进入.

我的代码：

my $ua = LWP::UserAgent->new( env_proxy => 1,keep_alive => 1,timeout => 30,agent => "Mozilla/4.76 [en] (Win98; U)");
my $response = $ua->get( $currenturl);
print $response->code;

ALWAYS上面的代码返回200,即使它是302.我在Firefox中使用FireBug测试了头部响应.该URL在FireBug的Net模块中返回“302 Moved Temporarily”.但是perl上面的代码返回200.为什么？

解决方法

LWP :: UserAgent自动跟随 HTTP redirects.
您可以通过将max_redirect选项设置为0来禁用此类行为.

my $ua = LWP::UserAgent->new( max_redirect => 0,env_proxy => 1,agent => "Mozilla/4.76 [en] (Win98; U)");
my $response = $ua->get( $currenturl);
print $response->code;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!