您好,我正在尝试将日期存储在变量$date中。然后,我将使用Excel::Writer::XLSX将日期打印到一个单元格中。我使用的是perl 5.8。我知道很多用于获取日期的模块,比如TimePiece,都安装在perl的后续版本中。
发布于 2019-10-19 06:57:36
use POSIX qw( strftime );
strftime('%m/%d/%Y', localtime)
发布于 2019-10-18 20:00:00
您说得对,从Perl5.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;
https://stackoverflow.com/questions/58457337
复制相似问题