perl 时间相关
1.获取系统时间
孔乙己说：回字有四样写法,你知道么?
我说： 我不知道，我只知道perl获取系统时间有3种方法（孤陋寡闻）
1. 使用localtime函数
Converts a time as returned by the time function to a 9-element a hash
list with the time analyzed for the local time zone. Typicallyused as follows:
#0 1 2 3 4 5 6 7 8 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
All list elements are numeric and come straight out of the C
`struct tm'. $sec, $min, and $hour are the seconds, minutes, and
hours of the specified time.
$mday is the day of the month and $mon the month in the range 解释 mday是每个月的天（1~28/29/30/31）
0..11, with 0 indicating January and 11 indicating December. mon 是月份 0-11 真实的月份需要$mon+1
This makes it easy to get a month name from a list:
my @abbr = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec )
print "$abbr[$mon] $mday"; # $mon=9, $mday=18 gives "Oct 18"
$year contains the number of years since 1900. To get a 4-digit
2.使用POSIX strftime函数
例如：strftime("%Y-%m-%d %H:%M:%S", localtime);输出2013-05-28 22:25:12
函数strftime()的操作有些类似于sprintf()：识别以百分号(%)开始的格式命令集合，格式化输出结果放在一个字符串中。格式化命令说明串strDest中各种日期和时间信息的确切表示方法。格式串中的其他字符原样放进串中。格式命令列在下面，它们是区分大小写的。
%a 星期几的简写
%A 星期几的全称
%b 月分的简写
%B 月份的全称
%c 标准的日期的时间串
%C 年份的后两位数字
%d 十进制表示的每月的第几天
%D 月/天/年
%e 在两字符域中，十进制表示的每月的第几天
%F 年-月-日
%g 年份的后两位数字，使用基于周的年
%G 年分，使用基于周的年
%h 简写的月份名
%H 24小时制的小时
%I 12小时制的小时
%j 十进制表示的每年的第几天
%m 十进制表示的月份
%M 十时制表示的分钟数
%n 新行符
%p 本地的AM或PM的等价显示
%r 12小时的时间
%R 显示小时和分钟：hh:mm
%S 十进制的秒数
%t 水平制表符
%T 显示时分秒：hh:mm:ss
%u 每周的第几天，星期一为第一天 （值从0到6，星期一为0）
%U 第年的第几周，把星期日做为第一天（值从0到53）
%V 每年的第几周，使用基于周的年
%w 十进制表示的星期几（值从0到6，星期天为0）
%W 每年的第几周，把星期一做为第一天（值从0到53）
%x 标准的日期串
%X 标准的时间串
%y 不带世纪的十进制年份（值从0到99）
%Y 带世纪部分的十制年份
%z，%Z 时区名称，如果不能得到时区名称则返回空字符。
%% 百分号
3.使用shell 获取
$(date +%Y-%m-%d" "%H:%M:%S )
%Y year
%m month
%d the day of month
%s second since 1970
%H hour
%M minute
%S second
补充：get microsecond
gettimeofday ()
In array context it returns a 2 element array with the seconds and microseconds since the epoch. In scalar context it returns floating seconds like Time::HiRes::time() (see below).
使用Time::HiRes qw/gettimeofday/
会返回2个值 （$second,$microsecond）=gettimeofday();
第一个是 1970到当前时间总秒数；第二个是当今microsecond
1 #!/usr/bin/perl -w
2 use Time::HiRes qw/gettimeofday tv_interval/;
3 use POSIX;
4 sub gettime
5 {
6 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
7 $year+=1900; #$year return since 1900,so current year=1900+$year
8 $mon+=1; #$mon returnmonth between 0 and 11
9 $mon="0$mon" if( $mon<10); #add a 0 if <10,eg:5 ->05
10 $mday="0$mday" if( $mday<10);
11 $hour="0$hour" if( $hour<10);
12 $min="0$min" if( $min<10);
13 $sec="0$sec" if( $sec<10);
14 #print "$year-$mon-$mday $hour:$min:$sec\n";
15 return my %temp=('second'=>$sec,
16 'minute'=>$min,
17 'hour'=>$hour,
18 'day'=>$mday,
19 'month'=>$mon,
20 'year'=>$year,
21 'date'=>"$year-$mon-$mday",
22 'hms'=>"$hour:$min:$sec");
23 }
24
25 my %time=&gettime;
26 print "$time{'date'} $time{'hms'}\n";
27 my $day=strftime("%Y-%m-%d %H:%M:%S", localtime);
28 print "$day\n";
29 my $day_shell=`echo \$(date +%Y-%m-%d" "%H:%M:%S )`;
30 print $day_shell;
31 sub getmicrosecond
32 {
33 (my $second,my $microsecond)=gettimeofday();
34 if(length($microsecond)<6)
35 {
36 $microsecond="0" x (6-length($microsecond)).$microsecond; #make sure the length of microsend is 6
37 }
38 return "$second$microsecond";
39
40 }
41 my $microsec1=&getmicrosecond;
42 print "The first time get microsecond :$microsec1\n";
43 print "wait for two seconds\n";
44 sleep 2;
45 my $microsec2=&getmicrosecond;
46 print "The second time get microsecond :$microsec2\n";
47 print "get two seconds microsends";
48 print $microsec2-$microsec1."\n";
运行结果：
页:
[1]