マイミクシィ最新日記のRSS

正規表現を変えて、最新の日記、コミュニティへの書き込み、レビューも取れるようにしてみました。
$URLの部分を書き換えてみるといいと思います。

#!/usr/bin/perl -w

use strict;
use WWW::Mechanize;
use XML::RSS;
use URI;
use Jcode;

my $EMAIL = 'メールアドレス';
my $PASSWORD = 'パスワード';
my $URL = "http://mixi.jp/new_friend_diary.pl";
#my $URL = "http://mixi.jp/new_bbs.pl";
#my $URL = "http://mixi.jp/new_review.pl";

my $mech = WWW::Mechanize->new();
$mech->get($URL);
$mech->field('email',$EMAIL);
$mech->field('password',$PASSWORD);
$mech->submit();
$mech->get($URL);
my $content = $mech->content;

$content =~ m!<b>(.+?)</b>!;
my $title = $1;

my $rss = new XML::RSS(version => '1.0');
$rss->channel(
	title       => $title,
	link        => $URL,
	description => $title,
);

$content =~ s/?n//g;
$content =~ s!(?d{4})年(?d?d)月(?d?d)日 (?d?d):(?d?d).+?href=(?S+?)>(.+?)</a> ?((.+?)?)!
$rss->add_item(
	title => $7,
	link  => URI->new_abs($6, $URL), 
	dc => {
		date    => "$1-$2-$3T$4:$5+09:00",
		creator => $8
	}
)!ge;

print "content-type:application/xml?n?n" if $ENV{GATEWAY_INTERFACE};
print Jcode->new($rss->as_string)->utf8;