Perl中处理时间的几个函数

Question

Perl中处理时间的几个函数

Answer 1

1、time函数：返回从1970年1月1日起累计的秒数 使用：my $t=time(); 2、 localtime函数：获取本地时区时间 使用：my $t=localtime(time()); 3、gmtime函数： 获取格林威治时间 使用：my $t=gmtime(time()); 得到格式化时间(以localtime函数为例)： my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time()); $sec:秒$min:分$hour:小时$mday:日$mon:月$year:目前的年减去1990，不是仅将19xx年的19去掉，因此不会有Y2K的困扰。$wday:每周的日期(如Sunday是0)$yday:每年的日期(如Jan 1是0)$isdst:如果日光节约时间使用则是正值，其它为0。

4、POSIX 函数 strftime() 可以将时间格式化为我们想要的格式。

1 2 3 4 5 6 7 8 9

#!/usr/bin/perl use POSIX qw(strftime);    $datestring = strftime "%Y-%m-%d %H:%M:%S", localtime; printf("时间日期 - $datestring\n");    #  GMT 格式化时间日期 $datestring = strftime "%Y-%m-%d %H:%M:%S", gmtime; printf("时间日期 - $datestring\n");

得到一个小时以前的时间

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

得到一天前的时间

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

 

Answer 2

加上
use Time::HiRes qw(time);
后；
你再print time，就是会有更精确的时间。