perl - 如何在 Perl 中以格式获取系统时钟？

Question

我想获取系统时钟(时间和日期)并在 Perl 中以人类可读的格式显示它。 格式如 2014-09-12 15:13:56

#!/usr/local/bin/perl
my %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;
$now = "$year-$months-$dayOfMonth $hour:$minute:$second";
print $now;

当您运行该程序时，您应该会看到一个更易读的日期和时间，如下所示:

2014--12 16:57:15

如何将月份转换为数字？

Answer 1

使用 Time::Piece (自 perl v5.9.5 以来的核心模块)

use Time::Piece;
my $dt = localtime;
print $dt->ymd, " ", $dt->hms, "\n";

使用 DateTime

use DateTime;
my $dt = DateTime->now();
print $dt->ymd, " ", $dt->hms, "\n";