« 凄すぎる!iTunesに歌詞を自動登録してくれるWidget | トップページ | 適性・適職診断 »

2005.09.18

凄い!perlから簡単にiTMSにアクセスできる!

「俺もなんかiTunes関係のソフト作りたいぜ!」
とかと思って、CPANを眺めていたらこんなモジュールを発見。

LWP::UserAgent::iTMS_Client

これは凄い、っていうか、こんなことが出来るのかっていうか、こんなこと許可されていたのか、、という感じ。
perlからiTunes Music Storeの曲情報を持ってこられるだけにとどまらず、ログインして曲を購入して、ダウンロードするところまで出来る!
凄い、、。
もちろん日本のストアにも対応していて、日本語も通る。
試しに、アーティスト名が槇原敬之の曲のタイトルのリストを表示させてみるコードを書いてみた。

#!/usr/local/bin/perl

use strict;
use warnings;

use Data::Dumper;
use LWP::UserAgent::iTMS_Client;

my $ua = LWP::UserAgent::iTMS_Client->new;
$ua->store_front('Japan');
my $listings = $ua->search( artist => '槇原敬之' );
for my $song ( @{$listings} ) {
my $song_name = $song->{songName};
utf8::encode($song_name);
print $song_name."\n";
}

デフォルトのストアが米国になっているのでそれを日本に変更するのと、戻ってきた値にUTF8フラグがオンになっているからそれを落としてあげることくらいかな、注意するところは。
凄いなぁ、、。
なんかできそうだけど、何が出来るんだろう。

一つ面白いなぁと思ったのは、previewURLかな。
このアドレスをたたくとブラウザ上でiTunes Music Storeの曲が聴ける。
聴けるってことは、ダウンロードできるってことで、実際にダウンロードできた。
んでもって、それはもちろんiTunesに登録できた。
ってわけで、iPodにも転送できるわけで、適当に沢山ダウンロードしてiPodに転送して通勤の電車の中とかで聴けるってことか、、。
え、いいのかな…?

ちなみに、取得できる曲データはこんな感じ。
($songをDumpした結果)
$VAR1 = {
'previewURL' => 'http://a1443.phobos.apple.com/jp/Music/y2005/m08/d12/h10/mzi.noamuqdl.aac.p.m4p',
'copyright' => "\x{2117} 2004 EMI Japan",
'comments' => '',
'songName' => "\x{50d5}\x{304c}\x{4e00}\x{756a}\x{6b32}\x{3057}\x{304b}\x{3063}\x{305f}\x{3082}\x{306e}",
'vendorId' => '2888',
'releaseDate' => '2004-08-11T07:00:00Z',
'sampleRate' => '44100',
'explicit' => '0',
'bitRate' => '128',
'duration' => '341750',
's' => '143462',
'genre' => "\x{30dd}\x{30c3}\x{30d7}",
'trackCount' => '12',
'drmVersionNumber' => '0',
'playlistArtistName' => "\x{69c7}\x{539f}\x{656c}\x{4e4b}",
'discCount' => '1',
'songId' => '78753030',
'price' => '200000',
'playlistArtistId' => '76032480',
'fileExtension' => 'm4p',
'artistName' => ' ',
'playlistId' => '78753032',
'dateModified' => '2005-09-06T12:33:00Z',
'buyParams' => 'productType=S&salableAdamId=78753030&price=200000',
'artistId' => '76032480',
'genreId' => '14',
'previewLength' => '30',
'kind' => 'song',
'discNumber' => '1',
'playlistName' => 'Explorer',
'relevance' => '1.0',
'trackNumber' => '12',
'year' => '2004',
'priceDisplay' => "\x{a5}200",
'versionRestrictions' => '0'
};


iPod & iTunes hacks―デジタルミュージックを自由に楽しむテクニック
iPod & iTunes hacks―デジタルミュージックを自由に楽しむテクニック

↓1日1ポチッとをお願いします!励みになります!
ポチっとよろしく!

|

« 凄すぎる!iTunesに歌詞を自動登録してくれるWidget | トップページ | 適性・適職診断 »

iTunes Music Store」カテゴリの記事

Mac」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)




トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/22269/5993764

この記事へのトラックバック一覧です: 凄い!perlから簡単にiTMSにアクセスできる!:

« 凄すぎる!iTunesに歌詞を自動登録してくれるWidget | トップページ | 適性・適職診断 »