Bolero (just music)

I use this music to wake-up my friend Nikita when I logged on his host remotely with SSH. :^)
To use this remotely you need uncomment two lines and create new device:
ln -s /dev/vc/63 /dev/beep or
ln -s /dev/tty31 /dev/beep.

#!/usr/bin/perl
use Time::HiRes qw(sleep);
# open BEEP, ">/dev/beep" or die $!;
# select BEEP;
$| = 1;
sleep($_), print "\a" for (0, 
    0.45, 0.15, 0.15, 0.15,
    0.45, 0.15, 0.15, 0.15,
    0.45, 0.45, 
    0.45, 0.15, 0.15, 0.15,
    0.45, 0.15, 0.15, 0.15,
    0.15, 0.15, 0.15, 0.15, 0.15, 0.15);
[download]

WBR, Alex.

Comment on Bolero (just music) Download Code

Replies are listed 'Best First'.
Re: Bolero (just music) by Dragonfly (Priest) on Apr 24, 2002 at 05:19 UTC
Hmm, this didn't work for me on OpenBSD for some reason (and it looks pretty fun so I wish it did!) What platform did you write this on? I'm guessing it has something to do with how BSD's /dev is set up. Any tips on getting this to work for me?	[reply]
Re: Re: Bolero (just music) by powerman (Friar) on Apr 24, 2002 at 08:42 UTC
I use Linux. This script is very simple, so it's possible to test every part quickly. Check about beep work in shell: echo -e '\a' Check about dev work in shell: echo -e '\a' >/dev/beep Check about Time::HiRes work: comment out open BEEP... and select BEEP... and replace "\a" to just "a" WBR, Alex.	[reply]
Re: Re: Re: Bolero (just music) by biograd (Friar) on Apr 25, 2002 at 05:09 UTC
Do you use RedHat? I am running Debian with some help... I tried the script and your tests and installed Time::HiRes, but I still got ~~run-time~~ errors. Then SO came up with an interesting fact: There's no /dev/beep included in the standard kernal. I'd made a file called /dev/beep that bolero printed to, but no device. erg. There is a program called beep that might be useful for this script though. It's at this website . Can't say I've looked too deeply at it, though. -ljb Updated: to fix stupid wording	[reply]
Re: Bolero (just music) by n2linux (Initiate) on Apr 25, 2002 at 02:12 UTC
Pretty dang schweet. I modified it a tad, adding a few more lines of music and looped it to make it really purty. Thanks for YACUFP (Yet Another Cool Use For Perl)! ;-)	[reply]


Think about Loose Coupling
	PerlMonks