perl 得到时间
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$year = $year +1900;
$mon = $mon +1;
$qqtime = $year."-".$mon."-".$mday."-".$hour."-".$min;
print $qqtime;

得到结果:2010-4-13-2-41

本人想如果是1为的最好变成两位 如4月份的表示最好是04 而不是 4,其它时间如日/小时/分同理 应为2010-04-13-02-41

[解决办法]

Perl code

$qqtime=sprintf("%02d-%02d-%02d %02d:%02d:%02d",$year,$mon,$mday,$hour,$min,$sec);