------------------------------------------
use WWW::Mixi;
use HTTP::Cookies;
use HTTP::Request::Common;
use LWP::Simple;
my $mixi_email = 'aaa@gmail.com(メールアドレス)';
my $mixi_password = '123456(パスワード)';
my $login_url = 'http://mixi.jp/login.pl';
my $home_url = 'http://mixi.jp/home.pl';
my $mixi = WWW::Mixi->new($mixi_email, $mixi_password);
print "Cookieを有効にします。\n";
my $cookie = sprintf('cookie_%s_%s.txt', $$, time);
my $cookie_jar = HTTP::Cookies->new(file => $cookie, ignore_discard => 1);
$mixi->cookie_jar($cookie_jar);
print "ログインします。\n";
my @form = ('email' => $mixi_email, 'password' => $mixi_password, 'next_url' => $home_url);
my $request = &HTTP::Request::Common::POST($login_url, [@form]);
my $response = $mixi->request($request);
print "ホームを取得します。\n";
$response = $mixi->get('http://mixi.jp/home.pl');
print $response->content;
getstore("取得先URLを指定", "mixi.html");
-----------------------------------------------------------
getstoreでhtmlファイルとして取得できるのは分かるのですが上手くいきません
どなたか,ご教授願います
コメント(0件)