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"; W