Yusukebe::Tech

iTunesで今聴いている曲の歌詞を表示させる。あくまでPerlで。 LyricWikiがSOAPのAPIを公開しているのでそれを使ってみる。

#!/usr/bin/perl
use SOAP::Lite;
use strict;
use Win32::OLE;

my $wsdl = 'http://lyricwiki.org/server.php?wsdl';
my $api = SOAP::Lite->service($wsdl);
my $itunes = Win32::OLE->new("iTunes.Application");

my $track  = $itunes->CurrentTrack;
if($api->checkSongExists($track->Artist,$track->Name)){
        my $lyric =  $api->getSong($track->Artist,$track->Name);
        print $lyric->{lyrics};
        print "\n";
}else{
        print "lyric is not found \n";
}

できた。海外の有名なアーティストの曲しか登録されてないとけど、ぱっと知りたいときはコマンドたたくだけなので便利。