Perl localtime 函数

• 

  描述

  localtime 此函数在列表上下文中转换EXPR指定的时间，返回一个九元素数组，其中包含针对当前本地时区分析的时间。数组的元素是-

   
   # 0  1    2     3     4    5     6     7     8
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
  

  如果省略EXPR，则使用时间返回的值。$mday是月份中的一天，$mon是月份本身，范围为0..11，其中0表示一月，11表示十二月。$year是自1900年以来的年数，而不仅仅是该年的后两位数字。也就是说，$year在2023年为123。获得完整的4位数年份的正确方法是：$year + = 1900;
• 

  句法

  以下是此函数的简单语法-

  
  localtime EXPR
  

• 

  返回值

  此函数返回以下格式的字符串：Thu Sep 21 14:52:52 2000（在标量上下文中）和各个时间分量值（秒，分钟，小时，月日，月，年，星期几，年月日，列表上下文中的夏令时）。
• 

  示例

  以下是显示其基本用法的示例代码-

   
  use POSIX;
  
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                            localtime(time);
  $year += 1900;
  print "$sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst\n";
  $now_string = localtime; 
  print "$now_string\n";
  
  $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
  print "$now_string\n";
  

  尝试一下

  执行结果：

  
  41, 50, 1, 30, 9, 2020, 5, 303, 0
  Fri Oct 30 01:50:41 2020
  Fri Oct 30 01:50:41 2020