我有一个简单的网址,它有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来禁用此类行为.
您可以通过将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;