Net::CDDBSearch - String search interface to CDDB database

Net-CDDBSearch documentation Contained in the Net-CDDBSearch distribution.

Index

Code Index:

NAME

Top

Net::CDDBSearch - String search interface to CDDB database

SYNOPSIS

Top

  use Net::CDDBSearch;

  Grab a list of all albums for 'Megadeth'
  $cddb = Net::CDDBSearch->new();
  $cddb->get_albums_artist('Megadeth');
  $albums = $cddb->albums();

  print @{$albums->{$_}}[0],"\n" foreach keys %{$albums};

DESCRIPTION

Top

Net::CDDBSearch is an interface to the www.freedb.org website; or more specifically to their online search engine for the cddb database. Originally based on Net::CDDBScan by David J. Shultz. This module allows you to take any artist name like 'Madonna' and get all albums from said artist and all songs and some additional info on ANY album said artist has ever worked on. [This is assuming the cddb database has a record of the given artist / album / song.]

USING Net::CDDBSearch

Top

1. Creating a Net::CDDBSearch object

You first must create a Net::CDDBSearch object.

  my $cddb = Net::CDDBSearch->new();

new() has the following optional parameters:

DEBUG

$cddb = Net::CDDBSearch->new(DEBUG => 1);

DEBUG: enables debug mode. Debug mode shows all internal function calls, all urls, albums and songs as it finds them.

2. Getting a list of all albums of a given artist.

get_albums_artist()

  $cddb->get_albums_artist('Megadeth');
  $albums = $cddb->albums();
  print @{$albums->{$_}}[0],"\n" foreach keys %{$albums};

Returns a reference to a hash of album urls. The key is the url and the value is the reference to array [Artist_Name,Album_Name].

3. Getting a list of all albums similar to a given album.

get_albums_album()

  $cddb->get_albums_album('Youthanasia');
  $albums = $cddb->albums();
  print @{$albums->{$_}}[0],"\n" foreach keys %{$albums};

Returns a reference to a hash of album urls. The key is the url and the value is the reference to array [Artist_Name,Album_Name].

4. Getting a track listing and info of a given album.

get_albums_album()

  $cddb->get_songs_album($album_url);
  $info   = $cddb->info();
  $tracks = $cddb->tracks();

  print "Album info\n";
  print $_,"\t ==> ",$info->{$_},"\n" foreach keys %{$info};
  print "Track list :\n";
  print $_," : ",$tracks->{$_}, "\n" foreach (sort keys %{$tracks});

Method info() returns reference to a hash of album info. The keys are : Title,Year,Label,Artist.

Method tracks() returns reference to a hash of album info. The key is the track number and the value is track title.

NOTE: $album_url in example above is a result of get_albums_artist() or get_albums_albums(). This is unique URL to album in freedb.org. Usually it looks like 'http://www.freedb.org/freedb_search_fmt.php?cat=misc&id=2210a203'

AUTHOR

Top

Vitaliy Babiy <admin@mpscope.net>.

THANKS

Top

David J. Shultz <dshultz@redchip.com> for original module Net::CDDBScan

COPYRIGHT

Top

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

perl(1).

Net-CDDBSearch documentation Contained in the Net-CDDBSearch distribution. 
package Net::CDDBSearch;

require 5.005_62;
use strict;

use LWP::Simple;
use URI::Escape;

require Exporter;

our @ISA = qw/Exporter/;

our @EXPORT = qw//;

our @EXPORT_OK = qw/new get_albums_artist get_albums_album get_songs_album albums tracks info url/;

our $VERSION = '2.01';


sub new {
    my $class = shift;
    my $self = {
	DEBUG => undef,
	@_
   };
    bless($self, $class);
    $self ? return $self : return undef;
}


sub albums {
    my $self = shift;
    return $self->{ALBUMS};
}


sub tracks {
    my $self = shift;
    return $self->{TRACKS};
}

sub info {
    my $self = shift;
    return {'Title'	=> $self->{TITLE},
	    'Artist'	=> $self->{ARTIST},
	    'Year' 	=> $self->{YEAR},
	    'Genre'	=> $self->{GENRE},
	    'Tracks'	=> $self->{TRACKN},
	    'Time'	=> $self->{TIME}};
}


sub url {
    my $self = shift;
    my $line = lc(shift);
    
    if($self->{TYPE} eq 'artist') {
	foreach (keys %{$self->{ALBUMS}}) {
	    return $_ if (lc($self->{ALBUMS}->{$_}[0]) eq lc($self->{QUERY}) && lc($self->{ALBUMS}->{$_}[1]) eq $line);
	}
    } elsif($self->{TYPE} eq 'disc') {
	foreach (keys %{$self->{ALBUMS}}) {
	    return $_ if (lc($self->{ALBUMS}->{$_}[1]) eq lc($self->{QUERY}) && lc($self->{ALBUMS}->{$_}[0]) eq $line);
	}
    }
    return undef;
}


sub get_albums_artist {
    my $self      = shift;
    $self->{QUERY}= shift;
    
    if ($self->{QUERY}) {
	$self->{URL}   = uri_escape($self->{QUERY});
	$self->{ERROR} = undef;
	$self->{TYPE}  = 'artist';
	print "$self >> Calling _get_albums();\n" if $self->{DEBUG};
	$self = _get_albums($self);
	defined $self->{ERROR} ? return undef : return $self;
    }
    $self->{ERROR} = 'No query provided';
    return undef;
}

sub get_albums_album {
    my $self      = shift;
    $self->{QUERY}= shift;
    
    if ($self->{QUERY}) {
	$self->{URL}   = uri_escape($self->{QUERY});
	$self->{ERROR} = undef;
	$self->{TYPE}  = 'title';
	print "$self >> Calling _get_albums();\n" if $self->{DEBUG};
	$self = _get_albums($self);
	defined $self->{ERROR} ? return undef : return $self;
    }
    $self->{ERROR} = 'No query provided';
    return undef;
}


sub get_songs_album {
    my $self = shift;
    $self->{URL}= shift;
    
    if ($self->{URL}) {
	$self->{ERROR} = undef;
	$self->{TYPE} = 'track';
	print "$self >> Calling _get_songs();\n" if defined $self->{DEBUG};
	$self = _get_songs($self);
	defined $self->{ERROR} ? return undef : return $self;
    }
    $self->{ERROR} = 'No url provided';
    return undef;
}


sub DESTROY {
    my $self = shift;
    $self = {};
    return 1;
}

sub _get_url {
    my $self = shift;
    unless ($self->{URL} =~ /^http/) {
	$self->{URL} = 'http://www.freedb.org/freedb_search.php?allfields=NO&allcats=YES&grouping=none&words=' . $self->{URL};
	$self->{URL} .= '&fields=' . $self->{TYPE};
    }

    print "$self >> URL: $self->{URL}\n" if $self->{DEBUG};
    my $data = get($self->{URL});

    $self->{DATA} = $data;
    return $self;
}

sub _get_albums {
    my $self = shift;
    
    my($line, $n1, $n2, $n3, $n4);

    print "$self >> Calling _get_url();\n" if $self->{DEBUG};
    $self = _get_url($self);

    return $self if (!$self->{DATA});

    while ($self->{DATA} =~ m!<a href="([^"]+)\/freedb_search_fmt\.php\?([^"]+)">([^<]+)\s+\/\s+([^<]+)</a>!ig) {
	($n1,$n2,$n3,$n4) = ($1,$2,$3,$4);
	$self->{ALBUMS}->{$n1.'/freedb_search_fmt.php?'.$n2} = [$n3,$n4];
    }
    return $self;
}


sub _get_songs {
    my $self = shift;
    
    my($line, $n1, $n2, $n3, $n4);

    print "$self >> Calling _get_url();\n" if defined $self->{DEBUG};

    $self = _get_url($self);

    return $self if (!$self->{DATA});

    if ($self->{DATA} =~ m!<h2>([^<]+)\s+\/\s+([^<]+)</h2>\s*tracks:\s+([^<]*)<br>\s*total time:\s+([^<]*)<br>\s*year:\s+([^<]*)<br>\s*genre:\s+([^<]*)!is) {
	$self->{ARTIST} = $1;
	$self->{TITLE}  = $2;
	$self->{GENRE}  = $6;
	$self->{YEAR}   = $5;
	$self->{TRACKN} = $3;
	$self->{TIME}   = $4; 
    }

    while ($self->{DATA} =~ m!<tr><td valign=top>\s*(\d+)\.</td><td valign=top> ([^<]*)</td><td><b>([^>]+)</b>!g) {
	$self->{TRACKS}->{$1} = $3;
    }
    $self->{DATA} = undef;
    return $self;
}

1;

__END__