iTunes の曲で COM ﾏﾝｾｰ

昨日とか今日とか、miyagawa さんが Win32 で iTunes を hack してました。
use encoding まわりで utf16 がどうのとかいうメールが某所で流れたのも、たぶん iTunes hacks の一環なのかなと思いつつ、miyagawa さんが、なんやら「COM ﾏﾝｾｰ!!」って言ってました。
COM はﾏﾝｾｰらしいのですが、よくわからなかったので色々概要をざっくり教えてもらいました。
聞いてたら、おいらもなんやらﾏﾝｾｰ!!って言ってみたくなったので言ってみたりなんかしました。
んで、やっぱわりとﾏﾝｾｰなんだなぁと思いますた。

ってことでご紹介。


blog.bulknews.net - Hacking the Hack #92: iTunes COM API で今聞いている曲を Blog エントリに掲載

Blog Hacks Hack #92 では、Winamp とそのプラグイン amip を使用して、今聞いている曲をエントリに追記する方法を紹介していますが、iTunes の場合は COM を利用してもっとスマートにできます。

で、js 使ってﾏﾝｾｰな COM を用い IE を開き、ﾏﾝｾｰな COM 経由で iTunes の再生中の曲を取ってきて、MT のフォームに乗っける方法を紹介されてます。
おぉ、すげぃ！

これ見て COM ﾏﾝｾｰとかってかなり思っちゃったので、ﾏﾝｾｰ な COM 使ってこんなふうにすれば、とりあえず、Win32 + Perl でも iTunes の再生中の曲が拾えるんじゃないのかな？って思った。
COM ﾏﾝｾｰならそのぐらいおちゃのこさいさいダロと。

#!/usr/local/bin/perl

use strict;
use Win32::OLE;

my $itunes = Win32::OLE->new('iTunes.Application') or die "oops\n";
my $track  = $itunes->CurrentTrack or die "not playing";
printf "Now Playing: %s - %s (%s)\n",
    map { $track->$_() } qw(Artist Name Album);

うむ。ほとんどまんまパクりだけど、ほんとに COM で出来るもんだなぁ。

やっぱマジでかなり COM ﾏﾝｾｰ。
いや、お世辞抜きに COM ﾏﾝｾｰよ。