@months
=
qw(
一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月
)
;
@days
=
qw(
星期天 星期一 星期二 星期三 星期四 星期五 星期六
)
;
(
$sec
,
$min
,
$hour
,
$mday
,
$mon
,
$year
,
$wday
,
$yday
,
$isdst
)
=
localtime
(
)
;
print
"
$mday
$months
[
$mon
]
$days
[
$wday
]
\n
"
;
以上实例执行输出结果为：
12 六月 星期天
如果直接调用 localtime() ，它返回系统当期设置时区的时间，实例如下：
#!/usr/bin/perl
$datestring
=
localtime
(
)
;
print
"
时间日期为：
$datestring
\n
"
;
以上实例执行输出结果为：
时间日期为：Sun Jun 12 11:27:31 2016
格林威治时间 (GMT)
函数
gmtime()
与 localtime() 类似，但它返回标准格林威治时间。
#!/usr/bin/perl
$local_datestring
=
localtime
(
)
;
print
"
本地时间日期为：
$local_datestring
\n
"
;
$gmt_datestring
=
gmtime
(
)
;
print
"
GMT 时间日期为：
$gmt_datestring
\n
"
;
以上实例执行输出结果为：
本地时间日期为：Sun Jun 12 11:32:14 2016
GMT 时间日期为：Sun Jun 12 03:32:14 2016
从实例中我们可以看出，中国的时间和格林威治时间相差了8小时。
格式化日期和时间
我们可以使用 localtime() 函数的 9 个时间元素来输出需要制定的格式时间。格式化输出使用 printf() 函数：
#!/usr/bin/perl
(
$sec
,
$min
,
$hour
,
$mday
,
$mon
,
$year
,
$wday
,
$yday
,
$isdst
)
=
localtime
(
)
;
printf
(
"
格式化时间：HH:MM:SS
\n
"
)
;
printf
(
"
%02d:%02d:%02d
"
,
$hour
,
$min
,
$sec
)
;
以上实例执行输出结果为：
格式化时间：HH:MM:SS
11:35:23
新纪元时间(Epoch Time)
我们可以使用 time() 函数来获取新纪元时间，该函数返回从1970年1月1日起累计的秒数。实例如下：
#!/usr/bin/perl
$epoc
=
time
(
)
;
print
"
从1970年1月1日起累计的秒数为：
$epoc
\n
"
;
以上实例执行输出结果为：
从1970年1月1日起累计的秒数为：1465702883
我们可以输出一个我们想要的时间格式：
#!/usr/bin/perl
(
$sec
,
$min
,
$hour
,
$mday
,
$mon
,
$year
,
$wday
,
$yday
,
$isdst
)
=
localtime
(
)
;
print
"
当期时间和日期：
"
;
printf
(
"
%d-%d-%d %d:%d:%d
"
,
$year
+
1900
,
$mon
+
1
,
$mday
,
$hour
,
$min
,
$sec
)
;
print
"
\n
"
;
$epoc
=
time
(
)
;
$epoc
=
$epoc
-
24
*
60
*
60
;
(
$sec
,
$min
,
$hour
,
$mday
,
$mon
,
$year
,
$wday
,
$yday
,
$isdst
)
=
localtime
(
$epoc
)
;
print
"
昨天时间和日期：
"
;
printf
(
"
%d-%d-%d %d:%d:%d
"
,
$year
+
1900
,
$mon
+
1
,
$mday
,
$hour
,
$min
,
$sec
)
;
print
"
\n
"
;
以上实例执行输出结果为：
当期时间和日期：2017-3-15 12:47:54
昨天时间和日期：2017-3-14 12:47:54
POSIX 函数 strftime()
函数 strftime() 可以将时间格式化为我们想要的格式。
下表列出了一些格式化的符号，* 号表示想要依赖本地时间：
星期几的简称（ Sun..Sat） *
星期几的全称（ Sunday..Saturday） *
Thursday
月的简称（Jan..Dec） *
月的全称（January..December） *
August
日期和时间 *
Thu Aug 23 14:55:02 2001
年份除于100，并取整 (
00-99
)
一个月的第几天 (
01-31
)
日期,
MM/DD/YY
相等于
%m/%d/%y
08/23/01
一个月的第几天，使用空格填充个位数 (
1-31
)
%F
YYYY-MM-DD
的简写类似于
%Y-%m-%d
2001-08-23
年份的最后两位数 (
00-99
)
月的简称 * (和
%b
选项相同)
%H
24 小时制 (
00-23
)
12 小时制 (
01-12
)
一年的第几天 (
001-366
)
月 (
01-12
)
分钟 (
00-59
)
新行 (
'\n'
)
%p
显示出AM或PM
时间（hh：mm：ss AM或PM），12小时
02:55:02 pm
24 小时
HH:MM
时间格式,相等于
%H:%M
14:55
秒数 (
00-61
)
水平制表符 (
'\t'
)
时间（24小时制）（hh:mm:ss），相等于
%H:%M:%S
14:55
ISO 8601 的星期几格式，星期一为
1
(
1-7
)
一年中的第几周，星期天为第一天(
00-53
)
ISO 8601 第几周 (
00-53
)
一个星期的第几天（0代表星期天） (
0-6
)
一年的第几个星期，星期一为第一天 (
00-53
)
显示日期的格式（mm/dd/yy） *
08/23/01
显示时间格式 *
14:55:02
年，两位数 (
00-99
)
ISO 8601与UTC的时区偏移(1 minute=1, 1 hour=100)
当前时区的名称,如"中国标准时间" *
$datestring
=
strftime
"
%Y-%m-%d %H:%M:%S
"
,
localtime
;
printf
(
"
时间日期 -
$datestring
\n
"
)
;
$datestring
=
strftime
"
%Y-%m-%d %H:%M:%S
"
,
gmtime
;
printf
(
"
时间日期 -
$datestring
\n
"
)
;
以上实例执行输出结果为：
时间日期 - 2016-06-12 12:15:13
时间日期 - 2016-06-12 04:15:13
