Perl时间处理函数用法介绍

一. Perl时间的表示函数

1. 表示日期的方式多种多样:
"18Jan1973";
"18/01/1973";
"01/18/1973";
"Jan181973";
"18-01-73";
"18-01-1973";
"01/73".
其中一些格式意思不清(如"01-06-1973",是表示6月1日呢,还是表示1月6日呢?)
如果不规定日期的表示形式,是很难处理的.

想理解"18Jan1973"和"6Sep1950"之间的区别,需要把它们转换为数字表示.
Unix内部运用纪元秒表示时间。
日期和时间加起来表示:
自格林威志时间1970年1月1日午夜时分(纪元)到当前时刻之间的秒数。
如, "18 Jan 1973:(假定为午夜时分)的纪元秒为96163200。

2. 在该系统中，午夜表示一天的开始时刻。

让我们通过Perl中提供的gmtime函数生成一个日期。
给定一个用以表示自从纪元以来的秒数的整数, 通过gmtime函数可以计算出代表相应的日期和时刻,
例一:
调用gmtime()函数，你会得到一系列值的列表,包括时，分，秒,日期，月份，年份等.

#!/usr/bin/perluse Time::localtime;$t_num = 96163200;$tm = scalar(gmtime($t_num));print $tm,"/n";

输出:
Thu Jan 18 00:00:00 1973

例二:以","为分隔符输出时间
print join(",", gmtime(96163200));

0,0,0,18,0,73,4,17,0
语义:
前3个数: 0,0,0, 分别表示秒, 分, 时. 小时是从0-23，故下午是12时往后.
第4个数: 18, 表示该月中的天数(本例中为18号)。
第5个数: 0 , 表示月份，从0开始(代表1月份)。
之所以从0开始，是因为月份对应着月份数组的下标：

@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);$month = @months[(gmtime($t_num))[4]];print "MONTH: ",$month,"/n";

第6个数: 73, 年份, (本例中为73)的表示有点特殊。它并不是年份的最后两位数字。
它表示从1900年开始的年份。
为什么要这样表示呢?
这是因为C语言就是这样处理的。
Perl试图使得其库和系统调用尽量接近操作系统的处理方式。
所以，如果你想输出4位数的年份，表示如下：
$year=(gmtime(96163200))[5]+1900;

如果你不了解这种处理方式，就会制造出Y2K疑问，你也许会这样写：
$year="19".(gmtime(96163200))[5]; #出错！2000年将变为19100
第7个数: 4 , 表示一星期中的第几天(星期日为0).
第8个数: 17, 一年中的第几天(0表示一年中的第一天).
第9个数: 0 , 能不能采用夏时制(0表示不采用，正数表示采用，负数表示不可知).

3. Perl中的time()函数返回以纪元秒形式表示的当前日期和时间。

如果你打算把它转换为字符串，就可运用gmtime()和localtime()函数：

$now=localtime(time());($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst)=localtime(time());