Chinaunix首页 | 论坛 | 博客
  • 博客访问: 523647
  • 博文数量: 102
  • 博客积分: 950
  • 博客等级: 准尉
  • 技术积分: 1094
  • 用 户 组: 普通用户
  • 注册时间: 2010-07-28 16:07
文章分类

全部博文(102)

文章存档

2020年(2)

2016年(5)

2015年(15)

2014年(25)

2013年(18)

2012年(19)

2011年(18)

我的朋友

分类: LINUX

2013-05-22 16:36:10

大家都是使用的 localtime 来取得当地日期时间和日期。这个函数如果在标量环境时,会以字符串的形式来传回目前的时间和日期 。默认的 localtime 的函数是以 1970 到今天的秒来做整数计算的。默认这个程序会调用 time 的函数来给它提供一个值。
使用方法:


例如,print scalar (localtime)这个代码,它输出的结果将类似于Thu Sep 16 23:00:06 1999。在列表上下文中,localtime将返回能够描述当前时间的一个元素列表: ($sec,$min,$hour,$mday,$mon,$year_off,$wday,$yday,$isdat) = localtime; 字段    值 $sec     秒,0 ~ 59 $min     分,0 ~ 59 $hour     时,0 ~ 23 $mday     月份中的日期, 1 ~ 2 8、2 9、3 0或3 1 $mon     年份中的月份, 0 ~ 11(这里请特别要小心) $year_off    1900年以来的年份。将1900加上这个数字,得出正确的4位数年份 $wday     星期几,0 ~ 6 $yday     一年中的第几天,0 ~ 364或365 $isdst     如果夏令时有效,则为真 不要将19附加给localtime返回的年份。它返回的年份是1900的偏移量。比如,在1999年,年份是99;在2000年中,它是100,将 1999与该值相加,可以在2000年以后正确地产生年份。perl不存在2000年问题,但是,如果简单地将19(或20)附加给该年份,就会导致程序中产生2000年问题 
		

真正的年月日 就是: $year_off + 1900 , $mon+1,$mday


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

使用起来很容易,如下:


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

常用的实例

得到日期的全部


perl -MPOSIX -le 'print strftime "%c", localtime();'

Sat 21 Aug 2010 07:54:34 AM CST

得到普通的指定的日期


perl -MPOSIX -le 'print strftime "%a %d %b %Y %H:%M:%S %Z", localtime();'

Sat 21 Aug 2010 07:54:11 CST

得到一个小时以前的时间


perl -MPOSIX -le 'print strftime "%c", localtime(time()-3600);'

Sat 21 Aug 2010 06:55:54 AM CST

得到一天前的时间


perl -MPOSIX -le 'print strftime "%c", localtime(time()-86400);'

Fri 20 Aug 2010 07:56:36 AM CST

阅读(654) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~