Mega Code Archive

 

Categories / Perl / Data Type

 

Time of Day

#! /usr/local/bin/perl ($sec, $min, $hr, $dayOfMonth, $month, $yr,$weekday, $dayOfYear, $dayLightStandardTime) = localtime(time); if ( ($month == 11) && ($dayOfMonth == 23 || $dayOfMonth == 24) ){    print "Merry Christmas World \n"; } else {     if ($hr > 18){       if ($hr < 21){          print "Good Evening World\n";       }else {          print "Good Night World\n";       }     }elsif ($hr > 12){        print "Good Afternoon World\n";     }elsif ($hr > 6) {         print "Good Morning World\n";     }else {         print "Go to BED already! \n";     } }