perl有两个取得时间的函数:localtime和gmtime
 
两个函数的用法一样,区别在于localtime为取得本地时间, gmtime格林威治时间。
 
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
其中：
    $sec代表秒数[0,59]
    $min代表分数[0,59]
    $hour代表小时数[0,23]
    $mday代表是在这个月的第几天[1,31]
    $mon代表月数[0,11],要将$mon加1之后，才能符合实际情况。
    $year从1900年算起的年数，所以要获得当前年就需要在$year的基础上加上1900
    $wday从星期六算起，代表是在这周中的第几天[0-6]
    $yday从一月一日算起，代表是在这年中的第几天[0,364]
    $isdst只是一个flag
 
下面是一个获取当前系统时间的子函数：
  
 
    
     
         
  1. sub getTime 
    2.  
         
  2. { 
    3.  
         
  3.    #time()函数返回从1970年1月1日起累计秒数 
    4.  
         
  4.     my $time = shift || time(); 
    5.  
         
  5.      
    6.  
         
  6.     my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time); 
    7.  
         
  7.      
    8.  
         
  8.     $mon ++; 
    9.  
         
  9.     $sec  = ($sec<10)?"0$sec":$sec;#秒数[0,59] 
    10.  
         
  10.     $min  = ($min<10)?"0$min":$min;#分数[0,59] 
    11.  
         
  11.     $hour = ($hour<10)?"0$hour":$hour;#小时数[0,23] 
    12.  
         
  12.     $mday = ($mday<10)?"0$mday":$mday;#这个月的第几天[1,31] 
    13.  
         
  13.     $mon  = ($mon<9)?"0".($mon+1):$mon;#月数[0,11],要将$mon加1之后，才能符合实际情况。 
    14.  
         
  14.     $year+=1900;#从1900年算起的年数 
    15.  
         
  15.      
    16.  
         
  16.     #$wday从星期六算起，代表是在这周中的第几天[0-6] 
    17.  
         
  17.     #$yday从一月一日算起，代表是在这年中的第几天[0,364] 
    18.  
         
  18.   # $isdst只是一个flag 
    19.  
         
  19.     my $weekday = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$wday]; 
    20.  
         
  20.     return { 'second' => $sec, 
    21.  
         
  21.              'minute' => $min, 
    22.  
         
  22.              'hour'   => $hour, 
    23.  
         
  23.              'day'    => $mday, 
    24.  
         
  24.              'month'  => $mon, 
    25.  
         
  25.              'year'   => $year, 
    26.  
         
  26.              'weekNo' => $wday, 
    27.  
         
  27.              'wday'   => $weekday, 
    28.  
         
  28.              'yday'   => $yday, 
    29.  
         
  29.              'date'   => "$year$mon$mday" 
    30.  
         
  30.           }; 
    31.  
         
  31. } 
    32.  
        
 
    
      通过下面的方法调用： 
    
 
    
        
    
 
    
 
    
     
         
  1. my $date = &getTime();#获取当前系统时间的Hash 
    2.  
         
  2. my $ymd = $date->{date};#获取yyyymmdd这样的日期   
    3.  
         
  3. my $year=$date->{year};#获取年 
    4.  
         
  4. my $month=$date->{month};#获取月 
    5.  
         
  5. my $day=$date->{day};#获取日 
    6.  
        
 
    
        
    
 
    
      获取时分秒类似。