time

perl内置的time函数获取从1970-01-01 00:00:00开始到现在流逝的秒数,即epoch时间。

$ perl -E 'say time'
1625729583    
# date [email protected] +"%F %T" => 2021-07-08 15:33:03

time只能精确到秒级别,如果想要获取更低精度的时间,可使用Time::HiRes模块。稍后再介绍这个模块的用法。

localtime

perl内置的localtime函数,根据给定的epoch时间参数计算对应的时间,如未给定参数,则以当前时间点的epoch作为参数:

  • 在列表上下文,返回对应时间的各个日期时间部分
  • 在标量上下文直接返回对应的时间点,返回的时间格式为操作系统所默认的格式(即和date命令返回的结果一样)

例如,在标量上下文:

$ perl -E '$a=localtime;say $a'
Thu Jul  8 15:49:01 2021

$ date
Thu Jul  8 15:49:01 CST 2021

在列表上下文:

# 2021-07-08 15:52:11
$ perl -E 'say "@{[localtime]}"'
11 52 15 8 6 121 4 188 0

# 2015-10-20 12:30:22
$ perl -E 'say "@{[localtime(1445315422)]}"' 
22 30 12 20 9 115 2 292 0

在列表上下文,localtime返回共9项信息,它们的顺序分别是:

#     0    1    2     3     4    5     6     7     8
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);

即:秒、分、时、日(月中日)、月、年、周中日、年中日、是否夏令时。主要使用的是前6项。

需注意几个事项:

  • mon月份的范围是0-11,0表示1月,11表示12月
  • year年份的值是从1900年开始的整数值,因此它是2位数或3位数,如果要四位数表示,加上1900
  • wday表示的周几,0表示周日,6表示周六

通过localtime得到时间的各部分后,如果要将它格式化为某种格式的日期时间字符串,可考虑使用printf

my ($S, $M, $H, $d, $m, $y) = localtime;
printf "%04d-%02d-%02d %02d:%02d:%02d\n",1900+$y,1+$m,$d,$H,$M,$S;

但是不推荐这么啰嗦的格式化方式,可引入POSIX中提供的strftime函数来格式化时间:

use POSIX qw(strftime);
strftime("%F %T", localtime);  # 2021-07-08 16:00:39

更多日期时间的操作,可使用Time::Piece模块或DateTime模块。

gmtime

gmtime和localtime的用法完全一致,唯一的区别是gmtime将给定的时间参数当作UTC时间,而不是本地时间。