3

リダイレクトURLの最後を取得したい。

お気に入り

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

perlでurl_1で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;
}

前もって感謝します。

4

2 に答える 2

0

WWW::Mechanize を見ることができます。私は以前にこのようなことをするためにそれを使用しました。 http://search.cpan.org/~jesse/WWW-Mechanize-1.72/lib/WWW/Mechanize.pm# $mech->redirect_ok()

この投稿も役立つ場合があります。

Perl WWW::Mechanize (または LWP) はリダイレクト URL を取得します

于 2013-07-02T03:00:41.957 に答える