LWPを使用して、自アカウントのページの情報を取得したい。
【実現したいこと】
ユーザIDとパスワードを入力する画面から
マイアカウント専用のページの内容を取得したい。
【環境】
WindowsXP
ActivePerl5.8.8
【疑問点】
ソースの最終行で以下のようにして decode('euc-jp',$response->content);
取得したドキュメントの内容を
吐いているつもりですが、
なぜ、はかれないのかが良くわかりません。
どなたか、間違いをご指摘ください。
（status_lineの結果が302なので
うまくログインできてる気でいるのですが、
そもそも、正しくログインできているのかの
判断もどうすればよいのかわかっていません。）
【ソース】
#ユーザーIDとパスワードを送信して、マイページの情報を取得する。
my $agent = LWP::UserAgent->new;
my $uri = URI->new ('https://www.XXXXXXXXXXXXXX');
my $response = $agent->post( $uri,
[ 'loginid' => 'XXXXX',
'password' => 'XXXXX',
],
);
print "response:".$response."\n";
print "status_line:".$response->status_line."\n";
print "base:".$response->base."\n";
print "request:".$response->request."\n";
print "previous:".$response->previous."\n";
print "is_info:".$response->is_info."\n";
print "is_redirect:".$response->is_redirect."\n";
print decode('euc-jp',$response->content);
【結果】
response:HTTP::Response=HASH(0x2f8c353)
status_line:302 Found
base:https://www.XXXXXXXXXXXXXX
request:HTTP::Request=HASH(0x2d032bc)
previous:
is_info:
is_redirect:1
以上です。どなたか知恵をお貸しください。m(_ _)m
