1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
#
# $Id: simple_demo.pl 746 2005-04-25 11:04:32Z sander $
#
use MusicBrainz::Client::Simple;
use strict;
my $mb = MusicBrainz::Client::Simple->new( debug => 0, utf8 => 0 );
#
# For this query a CD in the CDROM drive is needed.
#
#my @result = $mb->lookup_cd;
#
# This query needs a CDIndexId as it's argument.
#
#my @result = $mb->lookup_by_cdindex('ejdrdtX1ZyvCb0g6vfJejVaLIK8-');
#my @result = $mb->lookup_by_cdindex('kbOKXociW89enol.uRCowqenx7s-');
my @result = $mb->lookup_by_cdindex('W89_F6v9WxNnv7MoLNaYOXHCv8s-');
#
# Check if there was an error.
#
die "error: " . $mb->get_error unless $mb->success;
#
# Process the returned data.
# @result contains a list of MusicBrainz::Album instances.
#
foreach my $album ( @result ) {
#
# Print information about album and artist.
#
print $album->get_id, ' ', $album->get_name, "\n";
printf "Status: %s\n", $album->get_release_status || '';
printf "Type: %s\n", $album->get_release_type || '';
printf "%s; %s; %s\n", $album->get_artist()->get_name(),
$album->get_artist()->get_sortname(),
$album->get_artist()->get_id();
#
# An album object contains a list of MusicBrainz::Client::Simple::Track objects.
# Each track object contains a MusicBrainz::Client::Simple::Artist object, which
# is necessary for 'Various Artists' albums.
#
foreach my $track ( $album->get_tracks() ) {
printf "%2d. ", $track->get_num;
if ( $album->has_various_artists ) {
print $track->get_artist->get_name, ' - ';
}
printf "%s (%d)\n", $track->get_name, $track->get_duration;
}
#
# Amazon shop identifier
#
printf "ASIN: %s\n", $album->get_amazon_asin() || '';
#
# Release dates
#
my %release_dates = $album->get_release_dates();
print "Released:\n";
while ( my ($country, $date) = each %release_dates ) {
print "\t$date ($country)\n";
}
}
print "----------------\n";
my @artists = $mb->find_artist_by_name('Tori Amos');
foreach my $artist ( @artists ) {
printf "%-35s %-40s\n", $artist->get_name, $artist->get_sortname;
}
|
