如何將本地時間格式設置爲mm/dd/yyyy在Perl中HH：MM：SS AM/PM

Question

我需要將本地時間轉換爲精確格式，如mm/dd/yyyy HH:MM:SS AM/PM。

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

Answer 1

通過使用POSIX模塊的strftime你可以得到渴望的結果：

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

Answer 2

一個選項：

use POSIX qw(strftime); 

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

See it in action

Answer 3

您可以使用功能強大的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"; 

Answer 4

我建議Time::Piece模塊（這是核心）：

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