0: $myday{0}="Sunday";
1: $myday{1}="Monday";
2: $myday{2}="Tuesday";
3: $myday{3}="Wednesday";
4: $myday{4}="Thursday";
5: $myday{5}="February";
6: $myday{6}="Saturday";
7:
8: $mymonth{0}="January";
9: $mymonth{1}="February";
10: $mymonth{2}="March";
11: $mymonth{3}="April";
12: $mymonth{4}="May";
13: $mymonth{5}="June";
14: $mymonth{6}="July";
15: $mymonth{7}="August";
16: $mymonth{8}="September";
17: $mymonth{9}="October";
18: $mymonth{10}="November";
19: $mymonth{11}="December";
20:
21:
22: ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
23: print "$myday{$wday}, $mday $mymonth{$mon}, ", $year+1900,
24: " \@ $hour:$min:$sec $ENV{'TZ'}";
25:
In reply to Currdate.pl by nine9
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |