iTunes COM API with Perl

DAAP と Rendezvous で iTunes の共有プロトコルをいじれることがわかったので、次はローカルにインストールされてる iTunes 自体をハック。

これは iTunes COM で公開されてる API を使用すればカンタン。言語をそろえるために Perl でやるなら、

use strict;
use Win32::OLE;

my $itunes  = Win32::OLE->new('iTunes.Application') or die "oops\n";
my $library = $itunes->LibraryPlaylist;
my $tracks  = $library->Tracks;

my $count = $tracks->Count;
print "You have $count tracks.\n";

Win32::OLE 偉大なり。すべての API は iTunes COM SDK のヘルプに含まれてます。