在perl中获取重定向url

Question

我想获取重定向URL的最后一个。

像

URL_1：http://on.fb.me/4VGeu url_2：https://www.facebook.com/

我想URL_1在Perl得到url_2。 上一个源代码在下方。

sub get_redirect_location 
{ 
    my ($url) = @_; 
    my $ua = LWP::UserAgent->new; 

    $ua->proxy('http', 'SAMPLE_PROXY'); 
    my $req = new HTTP::Request(GET => $url); 
    my $res = $ua->request($req); 

    return $res->headers_as_string; 
} 

在此先感谢。

Answer 1

您可以找到使用导致响应该请求

$response->request() 

你可以得到以前的回应链中使用

$response->previous() 

全部在一起：

while ($response) { 
    say $response->request()->uri(); 
    $response = $response->previous(); 
} 

Answer 2

你可以看看WWW :: Mechanize。我之前用它来做这样的事情。 http://search.cpan.org/~jesse/WWW-Mechanize-1.72/lib/WWW/Mechanize.pm# $ mech-> redirect_ok（）

您也可能会发现这个职位有帮助：

Perl WWW::Mechanize (or LWP) get redirect url