[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