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

Replies are listed 'Best First'.
RE: Currdate.pl
by jamescohen (Initiate) on Feb 04, 2000 at 23:07 UTC 
    my (@myday) = (Sunday,Monday,Tuesday,Wednesday,Thrudsay,Friday,Saturda
+y) ;
my (@mymonth) = (January,February,March,April,May,June,July,August,
                    September,October,November,December) ;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time
+);
print "@myday[$wday], $mday @mymonth[$mon], ", $year+1900, \@ $hour:$m
+in:$sec $ENV{'TZ'}";

    [download]
[reply]
[d/l]
RE: Currdate.pl
by dlc (Acolyte) on Jan 19, 2000 at 23:02 UTC 
    use POSIX 'strftime';

print strftime("%A, %e %B, %Y %I:%M:%S %Z",localtime);

    [download]
[reply]
[d/l]

Back to Craft