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...#!/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";
In reply to RE: heavy perl
by BlueLines
in thread heavy perl
by Miker
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |