perl时间处理
（1）格式化输出当前时间：perl -e 'use strict;use POSIX qw(strftime);print strftime("%Y-%m-%d %H:%M:%S\n", localtime(time));'
（2）时间格式转换：
perl -e 'use Time::Local;use Time::Piece;$s = "2011-05-03 10:00:00";$fmt = "%Y-%m-%d %H:%M:%S";$t = Time::Piece->strptime($s,$fmt);print $t'
另外一种格式化时间的方法：
use Time::Local;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time());
my $format_time=sprintf("%d-%d-%d %d:%d:%d",$year+1990,$mon+1,$mday,$hour,$min,$sec);
print $format_time;
(3)两种方式的比较
strptime()，按照特定时间格式将字符串转换为时间类型;
strftime(),将时间格式化，或者说格式化一个时间字符串。
页:
[1]