perl - 你如何在 Perl 中读取系统时间和日期？

Question

我需要读取系统时钟(时间和日期)并在 Perl 中以人类可读的格式显示它。

目前，我正在使用以下方法(我找到了 here ):

#!/usr/local/bin/perl
@months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year";
print $theTime; 

When you run the program, you should see a much more readable date and time like this:

9:14:42, Wed Dec 28, 2005 

这似乎更像是为了说明而不是实际的生产代码。有没有更规范的方式？

Answer 1

使用 localtime功能:

In scalar context, localtime() returns the ctime(3) value:

$now_string = localtime;  # e.g., "Thu Oct 13 04:54:34 1994"