I often use

perl -le'sleep 1 until localtime =~ / 07:/; sleep 1, print "\a" while 
+1;'
[download]

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

Such flagrant prodigality and needless verbosity is begging for optimisation. 8^)

(localtime)[2] == 7 and print "\a" while sleep 1
[download]

(ps. the output from localtime doesn't have any ':'s? (in my version anyway))

---

Well It's better than the Abottoire, but Yorkshire!

(ps. the output from localtime doesn't have any ':'s? (in my version anyway))

Really? In list context, (my version is AS 5.6.1 build 633) I get:

perl -e "print localtime"
3481710810222521
[download]

In scalar context, however, I get:

perl -e "print scalar localtime"
Tue Sep 10 17:48:09 2002
             ^  ^
[download]

I'm guessing that you are in the UK (aren't I a bright boy ;) - my locale (US) won't make a difference here

(localtime)[2] == 7 and print "\a" while sleep 1

Did you have to look up the localtime index? I saved some time by not doing that. Besides, your version only beeps for an hour ;)

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

perl -e 'use Time::Local;sleep(timelocal((0,45,8,19,8,102))-time);prin
+t "\a" while sleep 1'
[download]

This will at least save some CPU time while still doing something you should better do with crond, atd, or smth. similar on Win32 Plattforms.

lg,
daniel

perl -MWin32::Sound -e sleep(1)until((localtime)[2]eq$ARGV[0]);Win32::
+Sound::Play($ARGV[1])for1..10; 7 Wakeup.wav
[download]