root/mixi/trunk/post_blog_to_mixi.pl

#!/usr/local/bin/perl

use strict;
use warnings;
use WWW::Mixi;
use Jcode;
use LWP::Simple;
use XML::RAI;
use Date::Parse;

my $id       = 'xxx@xxxxx';
my $password = 'xxxxx';
my $feed_url = 'xxxxx';

my $rai = XML::RAI->parse_string(get($feed_url));

open my $in, 'last_update' or die $!;
my $last_update = <$in>;
close($in);
chomp $last_update;

my $mixi = WWW::Mixi->new( $id, $password );
my $response = $mixi->login;

my $most_recent_time = 0;
foreach my $item ( @{$rai->items} ) {
    my $time = str2time($item->created);

    if($time > $last_update){
        my $description = "€³€ÎÆüµ­€ÎÆâÍƀϡ¢³°Éô¥Ö¥í¥°€Ëœñ€«€ì€Æ€€€Þ€¹¡£\n"
            . $item->link . "\n";
        
        my %diary = (
                     diary_title => Jcode->new($item->title)->euc,
                     diary_body  => $description,
                     );

        my $result = $mixi->get_add_diary_confirm(%diary);

        if($time > $most_recent_time){
            $most_recent_time = $time;
        }
    }
}

if($most_recent_time > $last_update){
    open my $out, '> last_update' or die $!;
    print $out $most_recent_time;
    close($out);
}

exit;