Re: [MacPerl] Re: dates

[paulcho@w3com.com (Paul Ho)]

>you mean I have to make a subroutine to change 0 to 1?

No you can just map it to "Jan". If January is 1, you have to name the
month 0. ;-)

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime(time);

($mname) = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep",
"Oct", "Nov", "Dec")[$mon];

($dname) = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")[$wday];

print "Current Time: $dname, $mday-$mname-$year  $hour:$min:$sec ";

Cheers,
Paul


_________________________________________________________________
Paul C. H. Ho
W3COM division of Advance Enterprise Inc. http://www.w3com.com/
paulcho@w3com.com <Prefered> << New! Please use this one!
paulcho@astral.magic.ca      74020.772@compuserve.com
No Microsoft products were used in the preparation of this email.