快速到达当地时间YYYY-mm-dd HH：MM：SS in Perl？

Question

我想获得当地时间并格式化为YYYY-mm-dd HH：MM：SS（比如2009-11-29 14:28:29）。 我如何以这种格式获得日期YYYY-mm-dd HH：MM：SS？

我试过

my $format = "%4u-%02u-%02u %02u:%02u:%02u";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
printf "$format\n", $year+1900, $mon+1, $mday, $hour, $min, $sec;

打印输出是我想要的，但是如何设计输出到变量??

Answer 1

使用sprintf代替printf。

my ($sec, $min, $hour, $mday, $mon, $year) = localtime;
my $formatted = sprintf "%4u-%02u-%02u %02u:%02u:%02u",
   $year+1900, $mon+1, $mday, $hour, $min, $sec;

但使用strftime要简单得多。

use POSIX qw( strftime );
my $formatted = strftime("%Y-%m-%d %H:%M:%S", localtime);