timelocal()是从格式化的时间输入转换成秒；而localtime()是从秒转换成格式化的时间。返回的年份都是对1900的偏移值。

timelocal用法如下：

my $second_str = timelocal($ss,$mi,$hh,$dd,$mm,$yy);
our ($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($second_str);$year = $year+1900;

localtime函数，根据它所在的上下文，可以用两种完全不同的方法来运行。

1、在标量上下文中，localtime函数返回一个格式化很好的当前时间字符串。

例如，print scalar (localtime)这个代码，它输出的结果将类似于Thu Sep 16 23:00:06 1999。

2、在列表上下文中，localtime将返回能够描述当前时间的一个元素列表：

 ($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime;

字段   值

$sec    秒，0 ~ 59

$min    分，0 ~ 59

$hour    时，0 ~ 23

$mday    月份中的日期， 1 ~ 2 8、2 9、3 0或3 1

$mon    年份中的月份， 0 ~ 11（这里请特别要小心）

$year_off   1900年以来的年份。将1900加上这个数字，得出正确的4位数年份

$wday    星期几，0 ~ 6

$yday    一年中的第几天，0 ~ 364或365

$isdst    如果夏令时有效，则为真

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);
print "$year-$mon-$mday $hour:$min:$sec\n";

得到的结果是：2018-06-07 09:43:38

strftime函数主要是用来格式化时间的。

1. print strftime("%Y-%m-%d %H:%M:%S\n", localtime(time));

2. 附上strftime函数的格式参数说明

3. Strftime 时间域  (这个和 date 的命令的字符格式是一样的):
   %H: 小时（00..23）
   %I: 小时（01..12）
   %k: 小时（0..23）
   %l: 小时（1..12）
   %M: 分（00..59）
   %p: 显示出AM或PM
   %r: 时间（hh：mm：ss AM或PM）,12小时
   %s: 从1970年1月1日00：00：00到目前经历的秒数
   %S: 秒（00..59）
   %T: 时间（24小时制）（hh:mm:ss）
   %X: 显示时间的格式（％H:％M:％S）
   %Z: 时区 日期域
   %a: 星期几的简称（ Sun..Sat）
   %A: 星期几的全称（ Sunday..Saturday）
   %b: 月的简称（Jan..Dec）
   %B: 月的全称（January..December）
   %c: 日期和时间（ Mon Nov 8 14：12：46 CST 1999）
   %d: 一个月的第几天（01..31）
   %D: 日期（mm／dd／yy）
   %h: 和%b选项相同
   %j: 一年的第几天（001..366）
   %m: 月（01..12）
   %w: 一个星期的第几天（0代表星期天）
   %W: 一年的第几个星期（00..53,星期一为第一天）
   %x: 显示日期的格式（mm/dd/yy）
   %y: 年的最后两个数字（ 1999则是99）
   %Y: 年（例如：1970,1996等）