[PERL-CGI] LWPを使った際リダイレクトされたか否かを知る方法について

質問

下記のように、任意のホームページを取得してそれを出力するプログラムがあるのですが、リダイレクトで引越しされたホームページにアクセスしても、特に問題なく表示されます。
できれば、リダイレクトされた場合であれば、次から本当のＵＲＬにアクセスしたいためそのホームページを記録したいのですが何か良い方法は無いでしょうか?
ご存知の方、教えていただけ無いでしょうか?
宜しくお願い致します。

-CGI----------------------------------------------------
#!/usr/bin/perl
print "Content-Type: text/plain\n\n";
$url = 'http://ＵＲＬを入れる';
use LWP;
use HTTP::Cookies;
$file = "cookies.txt";
$browser = LWP::UserAgent->new;
$browser->cookie_jar({file =>$file, autosave=>1 });
$response = $browser->get($url);
print $response->{_content};
__END__
if(リダイレクトされたならば){
open (OUT,">>RedirectLog.txt");
print OUT $url."\n";
close(OUT);
}
-CGI----------------------------------------------------

回答No.2

pipipi523 · ベストアンサー

リダイレクトされていたらリダイレクト禁止にして改めてurlを取り出すとか
if($response->previous()){ #リダイレクトされたならば
$browser->requests_redirectable([]);
$browser->get($url)->content()=~/<a href=[\"\']?([^\"\']+)[\"\']?>/i;
open (OUT,">>RedirectLog.txt");
print OUT $1."\n";
close(OUT);
}
#ちょっと処理的にアレな感じですがとりあえず動きました

お礼

とりあえず、動くものがあり、とても、助かりました！！
ありがとうございます！

回答No.1

BLUEPIXY

http://digit.que.ne.jp/work/index.cgi?Perl%E3%83%A2%E3%82%B8%E3%83%A5%E3%83%BC%E3%83%AB%2FLWP#i7
が参考になるかも

実際に試してないのでわかりませんが、
ＬＷＰそのままだと透過的にリダイレクトするとあるので
LWP::UserAgent の simple_requestでリクエストを出して
レスポンス(HTTP::Response)から is_redirect でリダイレクトされたかどうかとheader('Location')でＵＲＬが取り出せるのではないかと思います。

お礼

とてもよくまとめられているページで様々な変更に役立ちました。ありがとうございました。