如何将本地时间格式化为mm / dd / yyyy HH：MM：SS AM / PM in Perl

Question

我需要将本地时间转换为mm/dd/yyyy HH:MM:SS AM/PM的确切格式。

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime();

Answer 1

使用strftime POSIX模块，您可以获得所需的结果：

use POSIX qw/strftime/;
print strftime('%d-%m-%Y %I:%M:%S %p',localtime);

Answer 2

我建议使用Time::Piece模块（核心）：

use Time::Piece;
print localtime -> strftime("%d-%m-%Y %I:%M:%S %p");

Answer 3

一个选项：

use POSIX qw(strftime);

my $date = strftime "%m/%d/%Y %I:%M:%S %p", localtime;
print $date;

See it in action

Answer 4

您可以使用功能强大的DateTime库及其strftime - 函数。

use DateTime;
my $dt = DateTime->now(); # Defaults to now
my $string = $dt->strftime("%m/%d/%Y %l:%M:%S %p");
print "The Time: $string\n";