最近Amazonがvinylに対応したのでlast.fm でよく聞いてるアーティストの amazon 新譜フィードをつくる pipesが良すぎ。

vinylがvinylを呼ぶって感じで散財間違いなし。

last.fmの自分のアルバムチャート

use XML::Simple;
use LWP::Simple;
use XXX;

my $uri = 'http://ws.audioscrobbler.com/1.0/user/kzfm/topalbums.xml?type=3month';

my $response = LWP::Simple::get($uri);
if ($response){
  my $xml = XML::Simple->new->XMLin($response);
  XXX $xml;
}

With Voices
Ammoncontact
Ninja Tune / ￥ 2,744 (2006-05-22)
通常3～5週間以内に発送

Bricolage
Amon Tobin
Ninja Tune / ￥ 1,919 (1997-06-03)
通常6～8日以内に発送

Enemy of the Enemy
Asian Dub Foundation
EMI / ￥ 3,722 (2004-05-25)
通常7～9日以内に発送

HIGHVISION
スーパーカー
KRE / ￥ 3,059 (2002-04-24)
通常24時間以内に発送

CLOSER
MONDO GROSSO
フォーライフミュージックエンタテインメント / ￥ 3,059 (1997-08-21)

なかば唐突に話をはじめるが、last.fmのmp3のバージョンのタグは

 'TAGVERSION' => 'ID3v1 / ID3v2.3.0',

となっているようで、タグはきちんと埋め込まれてるのに関わらず、iTunesで読ませると、アーティストとかアルバムの情報がきちんと抽出されない。

毎回手を動かしてプロパティいじるのもあれなので調べたところ、ID3v2のタグをremoveすればとりあえずはOKらしい。

use DirHandle;

$d = new DirHandle ".";
while ($file = $d->read){
    remove_mp3tag($file,2) if $file =~ /.mp3$/;
}