Perl Function Strftime

在 Perl 中处理时间，很多模块，很方便，但是刚开始玩的人，可能没有发现合适的模块，所以使用起来感觉很麻烦。这里给大家推荐一下一个模块 strftime。

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

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

#!/usr/bin/perl -w

use strict;
use warnings;
use feature qw(say);
use POSIX qw(strftime);

say strftime("%Y-%m-%d %H:%M:%S", localtime);

执行输出：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等)