r271-635

MusicBrainzオンラインサービスを使って、曲名・アーティスト名より、その曲が含まれるアルバムを全て表示する。

#!/usr/bin/perl
 
use warnings;
use strict;
 
use WebService::MusicBrainz::Track;
use WebService::MusicBrainz::Release;
#use Data::Dumper;
 
my $ws_track = WebService::MusicBrainz::Track->new();
my $response = $ws_track->search({ TITLE => 'Soak Up The Sun', ARTIST => 'Sheryl Crow' });
my @tracklist = $response->track_list();
foreach my $track (@tracklist){
    # 検索された1曲のデータ
    print "\n".$track->artist()->name().', '.$track->title()."\n";
    my $releases = $track->release_list()->releases();
    foreach my $release (@$releases){
        # 対象曲の含まれるアルバムのデータ
        if(!defined($release->type()) && !defined($release->title())){ next; }
        if(!defined($release->type())){ print '  *****> '.$release->title(); }
        else{ print "  ".$release->type().'> '.$release->title(); }
        print ", ".($release->track_list()->offset()+1)."/".($release->track_list()->count()+1);
        print "\n";
#        print Data::Dumper->Dumper(\$release);
        {
            # 該当アルバムのデータを検索し、含まれる全ての曲を表示する
            my $ws_album = WebService::MusicBrainz::Release->new();
            my $album_response = $ws_album->search({ MBID => $release->id(), INC => 'tracks'  });
            my $album_tracks = $album_response->release()->track_list()->tracks();
            foreach my $album_track (@$album_tracks)
            {
                print "    ".$album_track->title()."\n";
            }
        }
    }
}

実行結果の例