Perl localtime用法及代码示例

描述

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

 # 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 和各个时间分量值(秒、分、小时、月中的某天、月、年、星期几、年中的某天、夏令时)在列表上下文中。

示例

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

#!/usr/bin/perl -w
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";

执行上述代码时，会产生以下结果 -

19, 58, 14, 1, 8, 2013, 0, 243, 0
Sun Sep  1 14:58:19 2013
Sun Sep  1 14:58:19 2013