Re: How do I get a CD's label?

I hacked this out of CD::Info, you can find it at http://www.kudla.org/raindog/perl/

open CD, "</dev/cdrom";
sysseek(CD, 32808, 0);
read CD, $data, 32;
print "cd label is $data\n";
[download]

it only works on data cds though, but as you said this is for an mp3 collection that should be ok, right? :) Miker

Comment on Re: How do I get a CD's label? Download Code

Replies are listed 'Best First'.
RE: Re: How do I get a CD's label? by Viking (Beadle) on Jul 06, 2000 at 03:28 UTC
Thanks heaps Miker That worked perfectly, and also the guy who wrote that module had also written a CD catalog similar to what I am doing. So now I can use some of that code too. Or extend his program or something :) This is just too cool.	[reply]