perl - Perl 中的今天日期，格式为 MM/DD/YYYY

我正在开发一个 Perl 程序，并坚持(我认为是)一个微不足道的问题。我只需要构建一个格式为 '06/13/2012' 的字符串(总是 10 个字符，因此小于 10 的数字为 0)。

这是我目前所拥有的:

use Time::localtime;
$tm=localtime;
my ($day,$month,$year)=($tm->mday,$tm->month,$tm->year);

最佳答案

您可以快速完成，只需使用一个 POSIX功能。如果你有一堆带日期的任务，请参阅模块 DateTime .

use POSIX qw(strftime);

my $date = strftime "%m/%d/%Y", localtime;
print $date;

https://stackoverflow.com/questions/11020812/