Получить перенаправленный URL в Perl
Я хочу получить последний из URL перенаправления.
лайк
url_1:http://on.fb.me/4VGeu url_2:https://www.facebook.com/
Я хочу получить url_2 по url_1 в Perl. Предыдущий источник ниже.
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;
}
Заранее спасибо.