perl - 在 perl 中从 DateTime 获取两位数的月份和日期

Question

您好，我正在使用 Perl 的 DateTime 来解析字符串并将其转换为日期格式。

我的代码如下所示:

my $parser = DateTime::Format::Strptime->new( pattern => "%Y-%m-%dT%H:%M:%SZ", time_zone => 'UTC', on_error  => 'croak');
my $startDate = $parser->parse_datetime("2017-04-14T21:00:00Z");
my $endDate = $parser->parse_datetime("2017-04-14T23:00:00Z");
print $startDate->month();

当我打印月份时，我只得到 4，或者如果将日期更改为小于 10 的数字，我得到一个个位数的数字。

如果小于 10，是否有更简洁的方法来获取两位数的月份/日期，而无需在数字前添加零？

Answer 1

使用 sprintf(或 printf，如果您只是要打印它)。

my $month = sprintf("%02d", $startDate->month());

它将对您的输入进行零填充。看看the documentation了解有关格式参数的更多信息。