Perl 时间日期处理

shuaiwei588

　　1. Perl中处理时间的函数
2. 将秒数转换为时间
3. 将时间转换为秒数
    a. 使用timegm/timelocal
    b. 使用Mktime

1. Perl中处理时间的函数有如下几种：
        1、time函数：返回从1970年1月1日起累计的秒数
             使用：my $t=time();
        2、 localtime函数：获取本地时区时间
             使用：my $t=localtime(time());
        3、gmtime函数： 获取格林威治时间
             使用：my $t=gmtime(time());
这里主要介绍第一二两种，格林威治时间暂时用不到，忽略。
time就是返回从1970年1月1日起累计的秒数
默认的 localtime 的函数是以 1970 到今天的秒来做整数计算的。默认这个程序会调用 time 的函数来给它提供一个值。
使用方法：

($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)=localtime;
$sec:秒 $min:分 $hour:小时 $mday:日 $mon:月 $year:目前的年减去1990，不是仅将19xx年的19去掉，因此不会有Y2K的困扰。 $wday:每周的日期(如Sunday是0) $yday:每年的日期(如Jan 1是0) $isdst:如果日光节约时间使用则是正值，其它为0。
localtime可以用unix time做参数，这样你可以指定获得几天前的时间了 localtime(time-3600*24*7)获得7天前的时间。

2. 将秒数转换为时间

上 面这个函数常用，但是返回值非常乱，可读性非常不好，让我们很容易出错，所以我推荐 strftime 这个时间函数。当然，还有另一个模块 DataTime 也相当不错。不过 strftime 非常象 Linux 常用的 date 的命令。strftime 是 C 中 POSIX 的一个功能函数。被包含进了 Perl 中。

使用起来很容易，如下:

#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(strftime);
print strftime("%Y-%m-%d %H:%M:%S\n", localtime(time));
会输出 :
2010-08-21 07:44:24

Strftime 时间域  这个和 date 的命令的字符格式是一样的)
% H 小时（00..23）
% I 小时（01..12）
% k 小时（0..23）
% l 小时（1..12）
% M 分（00..59）
% p 显示出AM或PM
% r 时间（hh：mm：ss AM或PM），12小时
% s 从1970年1月1日00：00：00到目前经历的秒数
% S 秒（00..59）
% T 时间（24小时制）（hh:mm:ss）
% X 显示时间的格式（％H:％M:％S）
% Z 时区 日期域
% a 星期几的简称（ Sun..Sat）
% A 星期几的全称（ Sunday..Saturday）
% b 月的简称（Jan..Dec）
% B 月的全称（January..December）
% c 日期和时间（ Mon Nov 8 14：12：46 CST 1999）
% d 一个月的第几天（01..31）
% D 日期（mm／dd／yy）
% h 和%b选项相同
% j 一年的第几天（001..366）
% m 月（01..12）
% w 一个星期的第几天（0代表星期天）
% W 一年的第几个星期（00..53，星期一为第一天）
% x 显示日期的格式（mm/dd/yy）
% y 年的最后两个数字（ 1999则是99）
% Y 年（例如：1970，1996等）



3. 将时间转换为秒数

a. 使用timegm/timelocal
#!/usr/bin/perl
use Time::Local;
my $string = '2011-9-30 8:20:34';
my ($year,$month,$date,$hour,$minute,$second);
if($string=~ m/(\d+)-(\d+)-(\d+)\s(\d+):(\d+):(\d+)/){
$year = int $1;
$month = int $2 - 1;
$date = int $3;
$hour = int $4;
$minute = int $5;
$second = int $6;
}
print ("The date string is: $string\n");
$string = timelocal( $second,$minute,$hour,$date,$month,$year);
print "Number is $string\n";
my $date = localtime $string;
print "After changed, date is $date\n";
b. 使用Mktime
  perl有个date::calc
  使用Mktime函数，可以得到当前时间到1971-01-01   00:00:00之间的秒数