[Omaha.pm] $1700 alarm clock
Jay Hannah
jay at jays.net
Wed Jun 27 04:13:28 PDT 2007
If you're ever trapped in a random motel room in Australia somewhere
and realize at 1am that the alarm clock is broken you can use your
MacBook and Perl... Don't forget to disable your power save features
before you fall asleep. :)
j
while (sleep 15) {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
print "$hour:$min\n";
if ($hour == 4 and $min == 30) {
while (1) {
`say "wake up you lazy bastards"`;
}
}
}
More information about the Omaha-pm
mailing list