Каков наилучший способ получить информацию о CDDB для аудио CD в Perl? - PullRequest
Новая
       5

Каков наилучший способ получить информацию о CDDB для аудио CD в Perl?

1 голос
/ 15 февраля 2010

Как лучше всего получить cd-title и cd-track-names с аудио-CD? Я попробовал этот модуль, но он не работал. 

#!/usr/bin/env perl
use warnings;
use strict;
use CDDB_get qw( get_cddb );

my %config;
$config{CDDB_HOST} = "freedb.freedb.org";
$config{CDDB_PORT} = 8880;
$config{CDDB_MODE} = "cddb";
$config{CD_DEVICE} = "/dev/sr1";

# user interaction welcome?
$config{input} = 1;

my %cd = get_cddb( \%config ); # line 16

print "$_ : $cd{$_}\n" for keys %cd;

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

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;
for my $i ( @{$cd{track}} ) {
    print "track $n: $i\n";
    $n++;
}

# OUT:
# Odd number of elements in hash assignment at ./cddb_get.pl line 16.
# Use of uninitialized value in list assignment at ./cddb_get.pl line 16.
# Use of uninitialized value in concatenation (.) or string at ./cddb_get.pl line 18.
#  :
# no cddb entry found at ./cddb_get.pl line 21.

Ответы [ 3 ]

4 голосов
/ 15 февраля 2010

Попробуйте поставить 

BEGIN { $CDDB_get::debug = 1 }

перед строкой use CDDB_get, чтобы получить отладочную информацию для STDERR.

2 голосов
/ 15 февраля 2010

Вы уверены, что URL-адрес API для FreeDB в модуле правильный?

Можете ли вы попробовать HTTP вместо CDDBP?

С документации FreeDB :

Конфигурирование вашего CDDB1- или freedb-осведомленного программное обеспечение, чтобы указать на freedb.freedb.org (Случайный сервер freedb) как ваш CDDB / FreeDB-сервер.

Все официальные серверы freedb работает cddbp на порту 8880 и http на порт 80. Путь для http-доступа /~cddb/cddb.cgi.

1 голос
/ 16 февраля 2010

Я хотел бы рассмотреть поиск информации на musicbrainz.org .

Использование MusicBrainz :: DiscID для поиска диска cd и WebService :: MusicBrainz для получения данных довольно просто: 

#!/usr/bin/perl

use strict;
use warnings;

use MusicBrainz::DiscID;
use WebService::MusicBrainz;

my $discid=MusicBrainz::DiscID->new;
if ( !$discid->read ) {
    print STDERR "Error: " . $discid->error_msg . "\n";
    exit 1;
}
print "DiscID: " . $discid->id . "\n";

my $service=WebService::MusicBrainz->new_release;
my $response=$service->search({ DISCID=>$discid->id });
my $release=$response->release;

print "ARTIST: " . $release->artist->name . "\n";
print "ALBUM:  " . $release->title . "\n";
...