トップ 最新 追記

ゆきのぶ日記


2008/11/30(Sun) [長年日記]

[Perl] WWW::Mechanize の現在 URL 取得に関するメモ

WWW::Mechanize で現在の URL 取得するには、

$mech->uri();

などとするが、これだと実行環境(WWW::Mechanize のバージョン?)によって結果が異なる場合があった。どうも Location ヘッダでリダイレクトされた場合、ある実行環境ではリダイレクト前の URL が返され、別の実行環境ではリダイレクト後の URL が返されるようだ。

詳しい原因は追い切れていないが、ひとまずそこで、

$mech->response()->base->as_string;

とすると、必ずリダイレクト後の URL が返されるようになり、実行環境による違いは見られなくなった。