Perl ログオン後の別ページへのリクエスト

質問

■現状
・会社で利用しているサービスの請求情報を取得したく。
　そのサービスが提供しているダウンロード機能は概要のデータのみの提供で情報が不足します。
・Webからは詳細な情報が取れますが、リンクを複数たどる必要あり、件数も多いので時間が足りません。
・一度にデータを取得することができれば、と思い、LWPでできればと、試行錯誤中です。

ページの構成は次の通りです。
1.ログオンページ
　↓ユーザーID、パスワードでログオン
　　成功すると、リダイレクトでトップページが表示されます。
2.トップページ
　↓ボタンクリックでサービスメニューページに移動
　　Cookie がセットされます。
3.サービスメニューページ
　↓顧客コードを選択
　　※顧客コードが複数あります。事前に把握可能です。
4.月選択画面
　↓月を選択すると、その月の請求概要データの一覧が表示されます。
5.請求概要データ一覧画面
　↓伝票番号を選択すると、請求詳細情報が表示されます。
　　※件数が多い場合、複数ページに分かれます。
　　※請求詳細キーをフォームのパラメータで渡します。
6.請求詳細データ画面

■実現したいことは、
a.IDとパスワードを使ってログオン
b.ログオン後、月選択画面に移動
c.請求概要データ一覧画面でキーを取得
d.キーをパラメータで渡して、請求詳細データ画面の情報を取得する

a.は実現できました。

■わからないこと
・b でログオン後に月選択画面に移動するためのリクエストを再度生成して処理する方法がわかりません。
・c でキーを取得する方法
　※HTML::TreeBuilder でキーの一覧を解析する予定ですが、試せておらず。

===== 以下、スクリプト =====
use LWP::UserAgent;
use HTTP::Request;
use HTTP::Request::Common qw(POST);
use HTTP::Cookies;

# cookie_jarの生成
my $cookie_jar = HTTP::Cookies->new(file => "cookie.txt", autosave => 1, ignore_discard => 1);

# リクエストの生成
my $url = 'https://hogehoge/login';
my %formdata = ('ID' => 'ID', 'PW' => 'PW');
my $request = POST($url,[%formdata]);

# UserAgentを生成して処理
my $ua = LWP::UserAgent->new;
$ua->cookie_jar($cookie_jar);
#my $res = $ua->request($request);
my $res = &process_request($ua, $request);
print $res->as_string;

# 以下質問
ここから先、別のリクエスト(https://hogehoge/serviceへのリクエスト)を生成し、
UserAgentを生成して処理する方法がわかりません。
res を print するサンプルはいくつかあるのですが、別のリクエストをどうやって生成したらよいのか。
"if ($res->is_success) {処理} "
とすればよいのでしょうか？
# 質問終わり

sub process_request {
my ($ua, $request) = @_;
my $res = $ua->request($request);
while ($res->is_redirect) {
my $url = $res->header('Location');
$res = $ua->request(HTTP::Request->new(GET => $url));
}
return $res;
}
==========

回答No.1

t-okura

WWW::Mechanize がお勧め。

参考URL：

http://e8y.net/mag/007-www-mechanize/

お礼

t-okura さん

ありがとうございます。
早速見てみます。