iTunesで今聴いている曲の取得

---

　Win32::OLEを使うためWindowsが対象です。

use strict;
use warnings;

use Win32::OLE;

my $itunes = Win32::OLE->new("iTunes.Application")
	or die "iTunesオブジェクトを作成できません。";

my $track = $itunes->CurrentTrack;

printf "Album : %s\n", $track->Album;
printf "Artist: %s\n", $track->Artist;
printf "Name  : %s\n", $track->Name;
printf "Time  : %s\n", $track->Time;

---

関連項目

・iTunesの再生と停止
・iTunesの曲一覧
・MP3情報の取得