Perl 时间日期
Perl 内置了四个函数用来处理日期和时间。
这四个函数分别是：
| 函数 | 说明 |
|---|---|
| time() | 返回从1970年1月1日起累计的秒数 |
| localtime() | 获取本地时区时间 |
| gmtime() | 获取格林威治时间 |
| strftime() | 格式化日期和时间 |
Perl 中显示当前时间和日期
localtime 函数在没有参数的情况下返回当前的时间和日期
localtime 函数返回 9 个元素组成的返回值。
9 个元素代表不同的时间日期参数
| 元素 | 说明 |
|---|---|
| sec | 秒， 0 到 61 |
| min | 分钟， 0 到 59 |
| hour | 小时， 0 到 24 |
| mday | 天， 1 到 31 |
| mon | 月， 0 到 11 |
| year | 年，从 1900 开始 |
| wday | 星期几，0-6,0表示周日 |
| yday | 一年中的第几天,0-364,365 |
| isdst | 如果夏令时有效，则为真 |
我们用一个范例来演示 localtime 函数的使用
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut @months = qw( 一月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月 ); @days = qw(星期天 星期一 星期二 星期三 星期四 星期五 星期六); ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); print "$mday $months[$mon] $days[$wday]\n";
运行以上范例，输出结果如下：
$ perl main.pl
5 十月 星期四
直接调用 localtime() 则返回系统当期设置时区的时间
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut $datestring = localtime(); print "时间日期为：$datestring\n";
运行以上范例，输出结果如下：
$ perl main.pl 时间日期为：Thu Oct 5 17:35:09 2017
Perl 中显示格林威治时间( GMT )
gmtime() 函数返回标准格林威治时间
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut $local_datestring = localtime(); print "本地时间日期为：$local_datestring\n"; $gmt_datestring = gmtime(); print "GMT 时间日期为：$gmt_datestring\n";
运行以上范例，输出结果如下：
$ perl main.pl 本地时间日期为：Thu Oct 5 17:36:53 2017 GMT 时间日期为：Thu Oct 5 09:36:53 2017
从范例运行结果来看，我们本地时间和格林威治时间相差了8小时
Perl 中格式化日期和时间
使用 printf() 函数和 localtime() 函数返回的 9 个时间元素可以输出自定义的格式的时间
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(); printf("将时间格式化为：YYYY-MM-dd HH:MM:SS\n"); printf("%04d-%02d-%02d %02d:%02d:%02d\n",$year+1900,$mon+1,$mday,$hour, $min, $sec);
运行以上范例，输出结果如下：
$ perl main.pl 将时间格式化为：YYYY-MM-dd HH:MM:SS 2017-10-05 17:43:27
Perl 中显示新纪元时间(Epoch Time)
time() 函数可以返回新纪元时间，该函数返回从1970年1月1日起累计的秒数
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut $epoc = time(); print "从1970年1月1日起累计的秒数为：$epoc\n";
以上范例执行输出结果为：
$ perl main.pl 从1970年1月1日起累计的秒数为：1507196708
我们可以输出自己想要的时间格式
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut ($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";
以上范例执行输出结果为：
$ perl main.pl 当期时间和日期：2017-10-5 17:46:27 昨天时间和日期：2017-10-4 17:46:27
Perl 中使用 POSIX 函数 strftime() 格式化日期和时间
strftime() 函数可以将时间格式化为我们想要的格式
下表列出了 strftime() 函数格式化的符号
* 号表示想要依赖本地时间
| 符号 | 描述 | 范例 |
|---|---|---|
| %a | 星期几的简称（ Sun..Sat） * | Thu |
| %A | 星期几的全称（ Sunday..Saturday） * | Thursday |
| %b | 月的简称（Jan..Dec） * | Aug |
| %B | 月的全称（January..December） * | August |
| %c | 日期和时间 * | Thu Aug 23 14:55:02 2001 |
| %C | 年份除于100，并取整 (00-99) | 20 |
| %d | 一个月的第几天 (01-31) | 23 |
| %D | 日期,MM/DD/YY相等于%m/%d/%y | 08/23/01 |
| %e | 一个月的第几天，使用空格填充个位数 (1-31) | 23 |
| %F | YYYY-MM-DD的简写类似于%Y-%m-%d | 2001-08-23 |
| %g | 年份的最后两位数 (00-99) | 01 |
| %g | 年 | 2001 |
| %h | 月的简称 * (和%b选项相同) | Aug |
| %H | 24 小时制 (00-23) | 14 |
| %I | 12 小时制 (01-12) | 02 |
| %j | 一年的第几天 (001-366) | 235 |
| %m | 月 (01-12) | 08 |
| %M | 分钟 (00-59) | 55 |
| %n | 新行 ('\n') | |
| %p | 显示出AM或PM | PM |
| %r | 时间（hh：mm：ss AM或PM），12小时 * |
02:55:02 pm |
| %R | 24 小时HH:MM时间格式,相等于%H:%M | 14:55 |
| %S | 秒数 (00-61) | 02 |
| %t | 水平制表符 ('\t') | |
| %T | 时间（24小时制）（hh:mm:ss），相等于%H:%M:%S | 14:55 |
| %u | ISO 8601 的星期几格式，星期一为1(1-7) | 4 |
| %U | 一年中的第几周，星期天为第一天(00-53) | 33 |
| %V | ISO 8601 第几周 (00-53) | 34 |
| %w | 一个星期的第几天（0代表星期天） (0-6) | 4 |
| %W | 一年的第几个星期，星期一为第一天 (00-53) | 34 |
| %x | 显示日期的格式（mm/dd/yy） * | 08/23/01 |
| %X | 显示时间格式 * | 14:55:02 |
| %y | 年，两位数 (00-99) | 01 |
| %Y | 年 | 2001 |
| %z | ISO 8601与UTC的时区偏移(1 minute=1, 1 hour=100) | +100 |
| %Z | 当前时区的名称,如"中国标准时间" * | CDT |
| %% | %符号 | % |
strftime 函数使用范例
#!/usr/bin/perl =pod file: mail.pl author: 简单教程(www.twle.cn) Copyright © 2015-2065 www.twle.cn. All rights reserved. =cut use POSIX qw(strftime); $datestring = strftime "%Y-%m-%d %H:%M:%S", localtime; printf("时间日期 - $datestring\n"); # GMT 格式化时间日期 $datestring = strftime "%Y-%m-%d %H:%M:%S", gmtime; printf("时间日期 - $datestring\n");
以上范例执行输出结果为：
$ perl main.pl 时间日期 - 2017-10-05 17:49:33 时间日期 - 2017-10-05 09:49:33