『AskWan』

in different  context have different value
eg:
saclar context
print scalar (localtime);

then output :
Thu Oct 29 18:50:01 2009

but in list context ;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
$sec    0 ~ 59
$min    0 ~ 59
$hour  0 ~ 23
$mday   1~31
$mon     0 ~ 11
$year   after 1900,it passed years
$wday    0 ~ 6
$yday    0 ~365
$isdst   insignificant for me

can use this to get timestamp
#!/usr/bin/perl -w my ($sec,$min,$hour,$mday,$mon,$year)=(localtime)[0..5]; my ($sec,$min,$hour,$mday,$mon,$year)=($sec,$min,$hour,$mday,$mon+1,$year+1900); $timestamp=$year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec; print $timestamp."\n";
output:
2009-10-29 19:2:40

have some defect ablove,use this
#!/usr/bin/perl -w my  ($sec,$min,$hour,$mday,$mon,$year) = (localtime)[0..5]; ($sec,$min,$hour,$mday,$mon,$year) = (     sprintf("%02d", $sec),     sprintf("%02d", $min),     sprintf("%02d", $hour),     sprintf("%02d", $mday),     sprintf("%02d", $mon + 1),     $year + 1900); $timestamp=$year."-".$mon."-".$mday." ".$hour.":".$min.":".$sec; print $timestamp."\n";
output:
2009-10-29 19:02:45

you can also use POSIX functions:
eg
#!/usr/bin/perl -w use POSIX qw(strftime); $timestamp1= strftime "%Y-%m-%d %H:%M:%S", gmtime;#GMT Zone $timestamp2 = strftime "%Y-%m-%d %H:%M:%S", localtime;

output:
2009-10-29 11:10:44
2009-10-29 19:10:44

作者：askwan@『AskWan』
地址：http://www.askwan.com/use_perl_to_get_timestamp_localtime_strftime/
可以转载,转载时请以链接形式注明作者和原始出处及本声明！