Brilliant! Definitely a "Cool Use For Perl"!
I had to make a couple of changes to get things working smoothly. I've moved the following code above the
for loop as it kept
spawning new processes of mpg123 every iteration and grinding my machine to a halt:
my $player = new Audio::Play::MPG123;
Also, none of my MP3s have ID3 tags (because I remove them with a
passion!). All my files follow the format "Artist - Song Title.mp3"
so I've added the following in place of the MP3::Info so that CompuKasem can do his thing:
if ($_ =~ m/(a-zA-Z0-9\ +)\ \-\ (a-zA-Z0-9\ +)\.mp3/)
{
$this_artist = $1;
$this_song = $2;
}
Now all that's needed is "Gillian Anderson" voice file and I'm set! Cheers!