如何在Perl中以MM / DD / YYYY格式获取日期。我正在使用Perl 5.8

Question

您好，我想将日期存储在变量$ date中。然后，我将使用Excel :: Writer :: XLSX将日期打印到单元格中。我正在使用perl 5.8。我知道很多用于获取日期的模块（例如TimePiece）已安装在更高版本的perl中。

Answer 1

您是正确的，从Perl 5.10开始，Time :: Piece才是核心。但是您可以从CPAN安装它。然后，您可以使用其strftime方法：

use strict;
use warnings;
use Time::Piece;
my $date = localtime->strftime('%m/%d/%Y');

没有它，您可以使用内置的localtime函数，该函数还具有更好的包装Time :: localtime（即使在5.8中）。您只需要小心一点，因为POSIX localtime返回的值并不完全符合您的期望。

use strict;
use warnings;
use Time::localtime;
my $now = localtime;
my $date = sprintf '%02d/%02d/%04d', $now->mon + 1, $now->mday, $now->year + 1900;

Answer 2

use POSIX qw( strftime );

strftime('%m/%d/%Y', localtime)