| CDDB_get(3pm) | User Contributed Perl Documentation | CDDB_get(3pm) |
CDDB - Read the CDDB entry for an audio CD in your drive
use CDDB_get qw( get_cddb );
my %config;
# following variables just need to be declared if different from defaults
$config{CDDB_HOST}="gnudb.gnudb.org"; # set cddb host
$config{CDDB_PORT}=80; # set cddb port
$config{CDDB_MODE}="http"; # 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 something 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: $i\n";
$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.
Run "perl Makefile.pl" as usual. ("make", "make install" next)
This library is released under the same conditions as Perl, that is, either of the following:
a) the GNU General Public License Version 2 as published by the Free Software Foundation,
b) the Artistic License.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the Artistic License for more details.
You should have received a copy of the Artistic License with this Kit, in the file named "Artistic". If not, I'll be glad to provide one.
You should also have received a copy of the GNU General Public License along with this program, in the file names "Copying"; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
If you use this library in a commercial enterprise, you are invited, but not required, to pay what you feel is a reasonable fee to the author, who can be contacted at armin@xos.net
(c) 2003 Armin Obersteiner <armin(at)xos(dot)net>
perl(1), Linux: /usr/include/linux/cdrom.h, Solaris, *BSD: /usr/include/sys/cdio.h.
| 2020-07-21 | perl v5.30.3 |