CDDB 2.27

CDDB is a Perl module that can read the CDDB entry for an audio CD in your drive.

SYNOPSIS

use CDDB_get qw( get_cddb );

my %config;

# following variables just need to be declared if different from defaults

$config{CDDB_HOST}="freedb.freedb.org"; # set cddb host
$config{CDDB_PORT}=8880; # set cddb port
$config{CDDB_MODE}="cddb"; # set cddb mode: cddb or http
$config{CD_DEVICE}="/dev/cdrom"; # set cd device

# user interaction welcome?

$config{input}=1; # 1: ask user if more than one possibility
# 0: no user interaction

# get it on

my %cd=get_cddb(%config);

unless(defined $cd{title}) {
die "no cddb entry found";
}

# do somthing with the results

print "artist: $cd{artist}n";
print "title: $cd{title}n";
print "category: $cd{cat}n";
print "cddbid: $cd{id}n";
print "trackno: $cd{tno}n";

my $n=1;
foreach my $i ( @{$cd{track}} ) {
print "track $n: $in";
$n++;
}

This module/script gets the CDDB info for an audio cd. You need LINUX, SUNOS or *BSD, a cdrom drive and an active internet connection in order to do that.