Mega Code Archive

 

Categories / Perl / String

 

Output month name and week name by using the return value from gmtime

($sec, $min, $hour, $dom, $mon,$year, $wday, $yday, $isdst) = gmtime($time);           @months = ("January", "February",            "March", "April", "May",            "June", "July", "August",            "September", "October",            "November", "December"); @week = ("Sunday", "Monday", "Tuesday",          "Wednesday", "Thursday",          "Friday", "Saturday"); $year += 1900; printf("Date is: %s, %d-%s-%d\n",         $week[$wday], $dom, $months[$mon],          $year);