Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Play mp3 by perl.

by kiseok7 (Beadle)
on Mar 31, 2002 at 23:25 UTC ( #155674=perlquestion: print w/replies, xml ) Need Help??

kiseok7 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Play mp3 by perl.
by IndyZ (Friar) on Mar 31, 2002 at 23:32 UTC
    Check out Bundle::XMMS over at CPAN. It can control the XMMS multimedia player. I used it quite successfully a while back to drive an MP3 alarm clock. It would come on quietly then slowly increase the volume until I got up and shut it off.

    Update: Also check out Audio::Play::MPG123 and MPEG::MP3Play. I have not used these modules so I can't say much about them.


      Do you still have the code for the alarm clock that you implemented? I would like to see how you did that...if you don't mind.
        I'm afraid the code disappeared with most of my other projects in the Great Grinding Hard Drive Crash. The project itself was pretty simple and shouldn't be hard to reimplement.

        I just used a flat text file with lines in the format of "DAY:HH:MM", so for example, "FRI:5:45" for Friday at 5:45 AM. The program ran as in infinite loop, sleeping 45 seconds at a time, then running through and comparing the times in the configuration file to the current time. If it found a match it would jump into playback mode.

        In this mode, a file was selected (hardcoded) and the volume reduced to zero. It would also unlink the file ~/.alarm if it existed. The playback loop would then begin, incrementing the volume slowly until either ~/.alarm was created or the volume was at 100% for a full minute. The program would then reset the volumn to a normal level, stop play, and reenter the main loop.

        I had an icon on my desktop that ran "touch ~/.alarm", so all that I had to do was turn on the monitor and click on it.


Re: Play mp3 by perl.
by belg4mit (Prior) on Apr 01, 2002 at 01:24 UTC
    It's been done, pmp3. Note: this uses MPEG::MP3, listed above by IndyZ.

    perl -pe "s/\b;([st])/'\1/mg"

Re: Play mp3 by perl.
by Ryszard (Priest) on Apr 01, 2002 at 21:41 UTC
    Here is a mp3 server I use. Its started via initd, and the playlist is generated via a web page and stored in a postgres database. I've also added a "top 20" list to the site so i can see the most popular mp3's.

    The front end is xmms, altho' you could use any mp3 player that will accept streaming (such as winamp)..

(shockme) Re: Play mp3 by perl.
by shockme (Chaplain) on Apr 02, 2002 at 03:18 UTC

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: perlquestion [id://155674]
Approved by root
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2022-10-07 16:50 GMT
Find Nodes?
    Voting Booth?
    My preferred way to holiday/vacation is:

    Results (30 votes). Check out past polls.