在 Perl 下处理时间的小技巧 strftime
来源:互联网 发布:xgpush java开发 编辑:程序博客网 时间:2024/05/01 00:20
我们在推荐前,介绍一下 Perl 下取时间的今生前世吧。以前我想大家都是使用的 localtime 来取得当地日期时间和日期。这个函数如果在标量环境时,会以字符串的形式来传回目前的时间和日期 。默认的 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。
上面这个函数常用,但是返回值非常乱,可读性非常不好,让我们很容易出错,所以我推荐 strftime 这个时间函数。当然,还有另一个模块 DataTime 也相当不错。不过 strftime 非常象 Linux 常用的 date 的命令。strftime 是 C 中 POSIX 的一个功能函数。被包含进了 Perl 中。好象 PHP 也是支持的
使用起来很容易,如下:
#!/usr/bin/perluse 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
use POSIX;
use warnings;
use Date::Tie;
my $curr_date = new Date::Tie ->new(
year=>strftime("%Y",localtime($arr[9])),
month=>strftime("%m",localtime($arr[9])),
day=>strftime("%d",localtime($arr[9])),
hour=>strftime("%H",localtime($arr[9])),
minute=>strftime("%M",localtime($arr[9])),
second=>strftime("%S",localtime($arr[9])),
);
$curr_date->{day} --;
my $last_date = $curr_date->{year}.$curr_date->{month}.$curr_date->{day}."_".$curr_date->{hour}.$curr_date->{minute}.$curr_date->{second};
- [Perl] 在 Perl 下处理时间的小技巧 strftime
- 在 Perl 下处理时间的小技巧 strftime
- Perl 处理时间的小技巧 strftime
- perl的时间处理之localtime和strftime
- perl 时间函数(timelocal,localtime,strftime)小用
- Perl处理日期时间的技巧
- linux 下时间函数strftime()的用法
- Perl的时间处理
- Perl的时间处理
- Linux下的时间--struct tm, mktime, localtime, strftime
- mysql小技巧 时间处理
- C语言时间处理函数strftime
- linux 下strftime()的用法
- linux 下strftime()的用法
- linux 下strftime()的用法
- linux下的节约时间的小技巧
- python date的strftime的时间格式
- perl 小技巧
- Android主线程与子线程之间的通信
- java问题汇总
- Qt界面设计(隐藏窗体标题栏,制作按钮菜单)
- Ping命令及其协议
- git clone所有远程分支
- 在 Perl 下处理时间的小技巧 strftime
- mysql 用show的方式显示表的相关信息
- LinearLayout属性orientation
- Python学习笔记-2(urllib、re)
- clear:both新用法,不再加新的标签啦
- C++11 右值引用
- React简介
- Android Studio如何快速生成get,set,tostring,构造函数
- git with gerrit 常用操作解析