Mixiの新着メッセージをチェックするスクリプト

biffって言う新着メールのチェックをするプログラムのMixi版。
使い方は、以下の perl script をシェルで適当に sleep 入れてループで回す。

 #!/usr/bin/env perl

 use strict;
 use warnings;
 use WWW::Mechanize;

 my ($count, $agent);
 my ($email, $password) = @ARGV;

 $agent = WWW::Mechanize->new;

 # ログイン
 $agent->get("http://mixi.jp/home.pl");
 $agent->form_number(1);
 $agent->field("email", $email);
 $agent->field("password", $password);
 $agent->submit();

 # お知らせをチェック
 $agent->get("http://mixi.jp/home.pl");
 $count = ($agent->{content} =~ /新着メッセージが(\d+)件あります！/) ? $1 : 0;

 # ログアウト
 $agent->get("http://mixi.jp/logout.pl");

 print "You have $count mails\n";

注意: EUC-JPで保存する。

コミュニティやアクセスログのチェックも数行付け加えるだけで出来た。
RSS更新の為に使ってるコードも、お知らせチェックのところを少し変更するだけ。

 # 設定を更新する。
 $agent->get("http://mixi.jp/edit_account.pl");
 $agent->form_number(1);
 $agent->submit();