Perl 时间日期

本章节我们为大家介绍 Perl 语言对时间日期的处理。

Perl中处理时间的函数有如下几种：

• 1、time() 函数： 返回从1970年1月1日起累计的秒数
• 2、localtime() 函数： 获取本地时区时间
• 3、gmtime() 函数： 获取格林威治时间

当前时间和日期

接下来让我们看下 localtime() 函数，该函数在没有参数的情况下返回当前的时间和日期。

以下 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    # 如果夏令时有效，则为真

实例演示如下：

#!/usr/bin/perl@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() 可以将时间格式化为我们想要的格式。

下表列出了一些格式化的符号，* 号表示想要依赖本地时间：

#!/usr/bin/perluse POSIXqw(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");

以上实例执行输出结果为：

时间日期 - 2016-06-12 12:15:13

时间日期 - 2016-06-12 04:15:13