root/itunes2playlog/trunk/itunes2playlog.pl

#!/usr/local/bin/perl

use strict;
use warnings;
use Encode;
use Date::Parse;
use HTML::Entities;
use XML::Atom::Client;
use XML::Atom::Entry;

my $user = 'xxx@xxxxx';
my $password = 'xxx';
my $file = $ARGV[0];
my $last_update_time_file = 'last_update_time';

open my $in, $last_update_time_file or die $!;
my $last_update_time = <$in> || str2time('2006-02-28T00:00:00Z');
close($in);

unless ($file) {
    if ($^O eq 'MSWin32') {
        my $mymusic = File::HomeDir::Windows->my_win32_folder('My Music');
        $file = File::Spec->catfile($mymusic, 'iTunes', 'iTunes Music Library.xml');
    } elsif ($^O eq 'darwin') {
        $file = File::Spec->catfile($ENV{HOME}, 'Music', 'iTunes', 'iTunes Music Library.xml');
    } else {
        die "I can't guess library.xml path using your OS name $^O. Specify using --library option.";
    }
}

open my $fh, "<:encoding(utf-8)", $file or die "$file: $!";

my @otologs;

my $data;
while (<$fh>) {
    m!<key>Name</key><string>(.*?)</string>!
        and $data->{track} = HTML::Entities::decode($1);
    m!<key>Artist</key><string>(.*?)</string>!
        and $data->{artist} = HTML::Entities::decode($1);
    m!<key>Album</key><string>(.*?)</string>!
        and $data->{album} = HTML::Entities::decode($1);
    m!<key>Total Time</key><integer>(.*?)</integer>!
        and $data->{duration} = HTML::Entities::decode($1);
    m!<key>Play Date UTC</key><date>(.*?)</date>!
        and $data->{date} = HTML::Entities::decode($1);
    m!</dict>!
        and do {
            if($data->{date} and $data->{artist} and str2time($data->{date}) > $last_update_time){
                push @otologs, $data;
            }
            $data = {};
        };
}

close($fh);

my $api = XML::Atom::Client->new;
$api->username($user);
$api->password($password);

for (@otologs){
    my $entry = XML::Atom::Entry->new;
    my $otolog = XML::Atom::Namespace->new(otolog => 'http://otolog.org/ns/music#');
    for my $key (keys %$_){
        $entry->set($otolog, 'otolog:' . $key, $_->{$key});
    }
    print $_->{artist} . " - " . $_->{track} . "\n";
    $api->createEntry('http://mss.playlog.jp/playlog', $entry);
}

open my $out, ">$last_update_time_file" or die $!;
print $out time;
close($out);

exit;