Chinaunix首页 | 论坛 | 博客
  • 博客访问: 992219
  • 博文数量: 632
  • 博客积分: 2778
  • 博客等级: 大尉
  • 技术积分: 3387
  • 用 户 组: 普通用户
  • 注册时间: 2012-05-31 09:09
个人简介

123

文章分类

全部博文(632)

文章存档

2014年(36)

2013年(33)

2012年(563)

分类:

2012-12-12 11:26:55

原文地址:Perl 时间日期处理 作者:huaius

目录:


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

  1. #!/usr/bin/perl
  2. use Time::Local;
  3. my $string = '2011-9-30 8:20:34';
  4. my ($year,$month,$date,$hour,$minute,$second);
  5. if($string=~ m/(\d+)-(\d+)-(\d+)\s(\d+):(\d+):(\d+)/){
  6. $year = int $1;
  7. $month = int $2 - 1;
  8. $date = int $3;
  9. $hour = int $4;
  10. $minute = int $5;
  11. $second = int $6;
  12. }
  13. print ("The date string is: $string\n");
  14. $string = timelocal( $second,$minute,$hour,$date,$month,$year);
  15. print "Number is $string\n";
  16. my $date = localtime $string;
  17. print "After changed, date is $date\n";

b. 使用Mktime

  perl有个date::calc
  使用Mktime函数,可以得到当前时间到1971-01-01   00:00:00之间的秒数

阅读(410) | 评论(0) | 转发(0) |
0

上一篇:Perl sort 函数

下一篇:Perl文件及目录操作

给主人留下些什么吧!~~