マイミクシィ最新日記の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;