如何阅读本身可能被重定向到另一个网址的网页内容？

Question

我使用这个代码来读取网页内容：

 my $ua = new LWP::UserAgent;      
     my $response= $ua->post($url); 

     if ($response->is_success){     
     my $content = $response->content; 
... 

但如果$ URL指向移动页面，然后$响应 - > is_success是返回false。现在如何轻松获取重定向页面的内容？

Answer 1

你需要追逐重定向本身。

if ($response->is_redirect()) { 
    $url = $response->header('Location'); 
    # goto try_again 
} 

您可能想把它放在while循环中，并使用“next”而不是“goto”。您可能还需要记录它，限制重定向你愿意追逐，

[更新]

OK我才注意到还有一个更简单的方法来做到这一点的号码等。从LWP :: UserAgent的手册页：

 
$ua->requests_redirectable 
$ua->requests_redirectable(\@requests) 
    This reads or sets the object's list of request names that 
    "$ua->redirect_ok(...)" will allow redirection for. By default, 
    this is "['GET', 'HEAD']", as per RFC 2616. To change to include 
    'POST', consider: 

     push @{ $ua->requests_redirectable }, 'POST'; 

所以是的，也许只是这样做。 :-)