Last.fmからタグ取得

明日は健康診断なのだが、開始時間がメチャ早く、どう考えても遅刻しそうなので今日は学校に泊まることにした。
さて、この間の続き

Last.fmからこの前買ったMeLL - Red fraction(Lastfm内のページ)のタグを取ってくるようなスクリプトをﾃｷﾄｰに書いてみた。

#!/usr/bin/perl

use strict;
use warnings;

use WebService::Audioscrobbler;
use utf8;
binmode STDOUT, ":encoding(euc-jp)";

my $ws = WebService::Audioscrobbler->new;
my $track = $ws->track('MeLL', 'Red fraction');
my @tags = $track->tags;
my @sorted_tags = sort { $a->title cmp $b->title } @tags;

for (@sorted_tags) {
	print $_->title . "\n" ;
}

実行してみる。
> perl ./src/test_tag_get.pl
BLACK LAGOON
I've
I've Girls
JPop
OP
Soundtrack
alternative
anime
anime op
anime opening themes
blowing shit up
electric
electronic
grungy techno
i've sound
ive
ive sound
j-pop
japanese
kazuya takase
running
sexy voice
songs i just cant stop listening to
teh sex
trance

ちゃんと引っ張ってこれた。webページ上ではlower-case化されているが、DBの中には入力されたままの状態で格納されているらしい。

ちなみにLast.fmの情報を知りたいのになんでWebService::Audioscrobblerというパッケージを使っているのかという理由についてはこちら。

WebService::LastFMもあるのだが、アカウント取得後のプレイリスト関係のAPIしかなかった。