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

[Miker]

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";

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

[Viking]

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.