in reply to 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/
it only works on data cds though, but as you said this is for an mp3 collection that should be ok, right? :) Mikeropen CD, "</dev/cdrom"; sysseek(CD, 32808, 0); read CD, $data, 32; print "cd label is $data\n";
|
---|
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 |
In Section
Seekers of Perl Wisdom