My alarm clock ran out of batteries just now, so I wrote this to get me up at 7 tomorrow morning.
use Win32::Sound; until((localtime)[2] == $ARGV[1]){ sleep(1); } Win32 +::Sound::Play($ARGV[0]) foreach(0..4);
Just specify a file to play, and the hour when you want to get up.
Yup, no minutes. What did you expect, a custom wake up call? :)
John J Reiser
newrisedesigns.com
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: Quickie Alarm Clock
by Juerd (Abbot) on Sep 10, 2002 at 23:09 UTC | |
by BrowserUk (Patriarch) on Sep 10, 2002 at 23:34 UTC | |
by jsprat (Curate) on Sep 11, 2002 at 00:52 UTC | |
by BrowserUk (Patriarch) on Sep 11, 2002 at 00:58 UTC | |
by Juerd (Abbot) on Sep 11, 2002 at 12:49 UTC | |
by Juerd (Abbot) on Sep 11, 2002 at 12:42 UTC | |
Re: Quickie Alarm Clock
by dantie (Initiate) on Sep 18, 2002 at 15:14 UTC | |
Re: Quickie Alarm Clock
by Anonymous Monk on Sep 10, 2002 at 14:05 UTC | |
Re: Quickie Alarm Clock
by Anonymous Monk on Sep 25, 2002 at 10:46 UTC | |
Re: Quickie Alarm Clock
by Anonymous Monk on Sep 17, 2002 at 16:07 UTC | |
Re: Quickie Alarm Clock
by /dev/trash (Curate) on Sep 13, 2002 at 03:06 UTC |
Back to
Cool Uses for Perl