Perl 时间日期

Perl 时间日期本章节我们为大家介绍 Perl 语言对时间日期的处理。Perl中处理时间的函数有如下几种：1、time() 函数：返回从1970年1月1日起累计的秒数2、localtime() 函数：获取本地时区时间3、gmtime() 函数： 获取格林威治时间当前时间和日期接下来让我们看下 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("%02d:





%02d:





%02d", $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:





54POSIX 函数 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%F YYYY-MM-DD 的简写类似于 %Y-%m-%d2001-08-23%g年份的最后两位数 (00-99)01%g年2001%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%Y年2001%zISO 8601与UTC的时区偏移(1 minute=1, 1 hour=100)+100%Z 当前时区的名称,如"中国标准时间" *CDT%% % 符号%实例





#!/usr/bin/perluse 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");以上实例执行输出结果为：时间日期 - 2016-06-12 12:





15:





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





15:





13