perl - URL がリダイレクトされるかどうかを確認するにはどうすればよいですか?

Question

URL (例: http://www.foo.com/alink.pl?page=2 ) がある場合、別のリンクにリダイレクトされているかどうかを判断したいと考えています。最終的な URL も知りたいです (例: http://www.foo.com/other_link.pl )。最後に、Perl と Groovy でこれを実行できるようにしたいと考えています。

Answer 1

パールでは:

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

my $request  = HTTP::Request->new( GET => 'http://google.com/' );
my $response = $ua->request($request);
if ( $response->is_success and $response->previous ) {
    print $request->url, ' redirected to ', $response->request->uri, "\n";
}

Answer 2

ええと、私はPerlとgroovyのどちらについても何も知らないので、HTTPの観点から別のものを提供し、あなたは適応する必要があります。

通常、HTTPリクエストを作成すると、応答コードとともにHTMLテキストが返されます。Successの応答コードは200です。300の範囲の応答コードは、何らかの形のリダイレクトです。

Answer 3

Jamesの答えを参照してください-サンプルHTTPセッション：

$ telnet www.google.com 80
HEAD / HTTP/1.1
HOST: www.google.com


HTTP/1.1 302 Found
Location: http://www.google.it/
Cache-Control: private
Content-Type: text/html; charset=UTF-8
Set-Cookie: ##############################
Date: Thu, 30 Oct 2008 20:03:36 GMT
Server: ####
Content-Length: 218

GETの代わりにHEADを使用すると、ヘッダーのみが取得されます。「302」は一時的なリダイレクトを意味し、「Location：」はリダイレクト先の場所です。

Answer 4

概念を示す簡単で汚い groovy スクリプト -- 注: これはjava.net.HttpURLConnectionを使用しています。

リダイレクトを検出するには、setFollowRedirects(false). そうしないと、とにかくリダイレ​​クトされたページresponseCodeに 200 の a が表示されます。欠点は、リダイレクトを自分でナビゲートする必要があることです。

URL url = new URL ('http://google.com')
HttpURLConnection conn = url.openConnection()
conn.followRedirects = false
conn.requestMethod = 'HEAD'
println conn.responseCode
// Not ideal - should check response code too
if (conn.headerFields.'Location') {
  println conn.headerFields.'Location'
}

301
["http://www.google.com/"]

Answer 5

Perlでは、そのためにLWP::Useragentを使用できます。response_redirect最も簡単な方法は、を使用してハンドラーを追加することだと思いadd_handlerます。

Answer 6

これは301リダイレクトで機能すると思います。

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;

my $request  = HTTP::Request->new( GET => 'http://google.com/' );
my $response = $ua->request($request);
if ( $response->is_redirect  ) {
    print $request->url . " redirected to location " .  $response->header('Location') .  "\n";
}