ゆきのぶ日記

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

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

$mech->uri();

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

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

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

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