perlでMixiのURLを指定してhtmlファイルを取得したいのですがどの様にすればいいのでしょうか?


------------------------------------------
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ファイルとして取得できるのは分かるのですが上手くいきません
どなたか,ご教授願います

回答の条件
  • 1人10回まで
  • 登録:2009/08/04 17:58:21
  • 終了:2009/08/11 18:00:02

回答(2件)

id:IlO10l0Il No.2

IlO10l0Il回答回数1757ベストアンサー獲得回数812009/08/08 09:42:00

ポイント35pt

http://okwave.jp/qa5172117.html

こちらが参考になると思います。

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません