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. Typically  used 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

        

#!/usr/bin/perl -w
use Time::HiRes qw/gettimeofday tv_interval/;
use POSIX;
sub gettime
{
        my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
        $year+=1900;            #$year return since 1900,so current year=1900+$year
        $mon+=1;                #$mon return  month between 0 and 11 
        $mon="0$mon" if( $mon<10);         #add a 0 if <10,eg:5 ->05
        $mday="0$mday" if( $mday<10);
        $hour="0$hour" if( $hour<10); 
        $min="0$min" if( $min<10);
        $sec="0$sec" if( $sec<10);
        #print "$year-$mon-$mday $hour:$min:$sec\n";
        return my %temp=('second'=>$sec,
                        'minute'=>$min,
                        'hour'=>$hour,
                        'day'=>$mday,
                        'month'=>$mon,
                        'year'=>$year,
                        'date'=>"$year-$mon-$mday",
                        'hms'=>"$hour:$min:$sec");
}

my %time=&gettime;
print "$time{'date'} $time{'hms'}\n";
my $day=strftime("%Y-%m-%d %H:%M:%S", localtime);
print "$day\n";
my $day_shell=`echo \$(date +%Y-%m-%d" "%H:%M:%S )`;
print $day_shell;
sub getmicrosecond
{
    (my $second,my $microsecond)=gettimeofday();
    if(length($microsecond)<6)
    {       
            $microsecond="0" x (6-length($microsecond)).$microsecond; #make sure the length of microsend is 6 
    }
    return "$second$microsecond";

}
my $microsec1=&getmicrosecond;
print "The first time get microsecond :$microsec1\n";
print "wait for two seconds\n";
sleep 2;
my $microsec2=&getmicrosecond;
print "The second time get microsecond :$microsec2\n";
print "get two seconds microsends";
print $microsec2-$microsec1."\n";

运行结果：