perlでhtmlファイルを取得したいのですが
perlでmixiなどログイン処理のあるサイトのhtmlファイルを取得したいのですがなかなか上手くいきません。
どなたかご教授をお願いします。
-----------------------------------------------------------------
#!/usr/bin/perl
use LWP::UserAgent;
use HTTP::Cookies;
use HTTP::Request::Common;
use LWP::Simple;
my $mixi_email = 'メールアドレス@yahoo.co.jp';
my $mixi_password = 'パスワード';
my $login_url = 'http://mixi.jp/login.pl';
my $home_url = 'http://mixi.jp/home.pl';
my $mixi = LWP::UserAgent->new($mixi_email, $mixi_password);
#Cookieを有効にする#
my $cookie = sprintf('cookie_%s_%s.txt', $$, time);
my $cookie_jar = HTTP::Cookies->new(file => $cookie, ignore_discard => 1);
$mixi->cookie_jar($cookie_jar);
#ログインする#
my @form = ('email' => $mixi_email, 'password' => $mixi_password, 'next_url' => $home_url);#POSTで送る内容の配列
my $request1 = &HTTP::Request::Common::POST($login_url, [@form]); #リクエストヘッダの生成
my $response1 = $mixi->request($request1); #ログインする
getstore("http://mixi.jp/search_community.pl?from=global(取得先の指定)", "test.html");
----------------------------------------------------------------------
試しに書いてみたのですがうまくいきませんでした
お礼
ありがとうございました。手持ちのプログラムに記述してみましたが、エラーが出てしまいました。 よろしければどの部分が何をしているのか、説明をしていただけますでしょうか。
補足
すみません、自己解決しました。ありがとうございました。