This doesn't look that hard though. According to the docs, something like this should work (I'll never know because I can't find the module anywhere on their site):
#!/usr/bin/perl -w
use strict;
use MPEG::MP3Play;
my ($mp3_file)=@ARGV;
print "Going to play $mp3_file...\n";
my $mp3=new MPEG::MP3Play (debug => 'all');
$mp3->open($mp3_file);
$mp3->play;
print "Finished playing $mp3_file\n";
I guess the tricky part is in dealing with the messge queue(??!!) from the SDK. Anyhow, this seems to be a very well documented module. I'm not sure what to tell you if you're having problems other than to read through
all of the docs...
BlueLines
Disclaimer:
This post may contain inaccurate information, be habit forming, cause atomic warfare between peaceful countries, speed up male pattern baldness, interfere with your cable reception, exile you from certain third world countries, ruin your marriage, and generally spoil your day. No batteries included, no strings attached, your mileage may vary.
