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


当前时间和日期

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

以下 9 个符号代表不同的时间日期参数:

sec, # 秒, 0 到 61min, # 分钟, 0 到 59hour, # 小时, 0 到 24mday, # 天, 1 到 31mon, # 月, 0 到 11year, # 年,从 1900 开始wday, # 星期几,0-6,0表示周日yday, # 一年中的第几天,0-364,365isdst # 如果夏令时有效,则为真

实例演示如下:

实例

#!/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 2016GMT 时间日期为: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("d:d:d", $hour, $min, $sec);

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

格式化时间:HH:MM:SS11: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


perl 怎么用(Perl时间日期)(1)

POSIX 函数 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/%y08/23/01
%e一个月的第几天,使用空格填充个位数 ( 1-31)23
%FYYYY-MM-DD 的简写类似于 %Y-%m-%d2001-08-23
%g年份的最后两位数 (00-99)01
%g2001
%h月的简称 * (和%b选项相同)Aug
%H24 小时制 (00-23)14
%I12 小时制 (01-12)02
%j一年的第几天 (001-366)235
%m月 (01-12)08
%M分钟 (00-59)55
%n新行 ('\n')
%p显示出AM或PMPM
%r时间(hh:mm:ss AM或PM),12小时 *02:55:02 pm
%R24 小时 HH:MM 时间格式,相等于 %H:%M14:55
%S秒数 (00-61)02
%t水平制表符 ('\t')
%T时间(24小时制)(hh:mm:ss),相等于%H:%M:%S14:55
%uISO 8601 的星期几格式,星期一为1 (1-7)4
%U一年中的第几周,星期天为第一天(00-53)33
%VISO 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
%Y2001
%zISO 8601与UTC的时区偏移(1 minute=1, 1 hour=100) 100
%Z当前时区的名称,如"中国标准时间" *CDT
%%% 符号%

实例

#!/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

,