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!

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.