Last.fmからタグ取得

| コメント(0) | トラックバック(0)

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

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しかなかった。

トラックバック(0)

トラックバックURL: http://hoge.sub.jp/blog-cgi/mt/mt-tb.cgi/401

コメントする

このブログ記事について

このページは、Lyoが2007年4月 4日 22:51に書いたブログ記事です。

ひとつ前のブログ記事は「とある決意」です。

次のブログ記事は「del.icio.us Bookmarks」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。

OpenID対応しています OpenIDについて
Powered by Movable Type 4.261