LWP::UserAgent でリダイレクトする URL にアクセスした際、リダイレクト先の URL を得るには - @kyanny's blog先日↑なタイトルで $res->base を使うといける、とか書きましたがデマでした。すいません。消しちゃったので permalink なくなりました。もしブクマしてくれた人がいたら重ねてすいません。 で、 HTTP::Response のマニュアルをちゃんと読んで、今度は大丈夫かなと思ったのでメモ。 検証コード リダイレクト先の URL を得るには my $response = $ua->get($url); my $uri = $response->request->uri; print $uri;これでいい。 $uri は URI モジュールのインスタンス。ふつうに get とかして帰ってくる $response が最終的に 30x じゃないステータスコードが返されたレスポンスのオブジェクトなので、そのレスポンスを発生させたリクエスト (->request) をたどってその uri
