Perl如何取得当前日期

ulmer

原帖由 ianywhere 于 2006-8-31 22:22 发表
想取得当前日期,但是下面这个代码返回的结果很奇怪,请问各位大侠有什么建议?谢谢

($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst) = gmtime();
print "gmtime() 19$year-$mon-$mday\n";

hi,

gmtime() returns standard Greenwich time zone (i.e.: London Time)
localtime returns your local time zone (i.e: Beijing Time)
$year += 1900; # gmtime(), localtime() returns current year 106
$mon +=1;    # gmtime(), localtime counts month from 0 to 11

read more about date+time under
>perldoc -f gmtime
>perldoc -f localtime

perl -le 'print scalar locatime;'
perl -le 'print join "\n", gmtime;'
perl -le '$i=0;for(localtime){print "$i. $_"; $i++};'
perl -le '($d,$m,$y)=(localtime)[3..5]; print $y+1900,"-",$m+1,"-",$d;'

regarsd, ulmer