perl - 格式化日期时间输出

Question

如何使用 DateTime 从以下位置转换我的退货：

This is my date:2011-11-26T20:11:06 到 这是我的日期：20111126

使用此现有代码：

use DateTime qw();
my $dt3 = DateTime->now->subtract(days => 1);
print "This is my date:$dt3\n"

Answer 1

ymd 是最简单的：

print "This is my date: ", $dt3->ymd(''), "\n";

strftime 是更通用的：

print "This is my date: ", $dt3->strftime('%Y%m%d'), "\n";

也有特定的（例如 DateTime::Format::Atom）和一般（例如 DateTime::Format::Strptime) 您可以使用的格式化辅助工具：

use DateTime::Format::Strptime qw( );
my $format = DateTime::Format::Strptime->new( pattern => '%Y%m%d' );
print "This is my date: ", $format->format_datetime($dt3), "\n";

PS — 您的代码将给出英格兰境内或附近的日期，而不是您所在位置的日期。为此，您想要

my $dt3 = DateTime->now(time_zone => 'local');

或更合适的

my $dt3 = DateTime->today(time_zone => 'local');

Answer 2

只需在第二行添加 ->ymd("") 。参数""是分隔符，您选择为空字符串。

use DateTime qw();
my $dt3 = DateTime->now->subtract(days => 1)->ymd("");
print "This is my date:$dt3\n"

Answer 3

在 Perl 中大约有十几种处理日期的方法。但是，如果您知道日期字符串的格式，则可能没有理由调用日期时间模块：

$dt3 =~ /^(\d+)-(\d+)-(\d+)/;
print "This is my date:${1}${2}${3}\n";

我不熟悉 DateTime，但如果在显示时没有办法格式化数据，我会感到惊讶它。

我个人更喜欢 Time::Piece 和 Time::Seconds 用于这些事情。自 5.10 起，这些模块就成为标准 Perl 安装的一部分。另外，我发现界面相当简单干净。

use Time::Piece;
use Time::Seconds;

my $time = localtime;
$time -= ONE_DAY;

print "This is my date:" . $time->ymd("");

由于某种原因，您不能在同一行上说 $time = localtime - ONE_DAY; 。我想您需要先创建 Time::Piece 对象，然后才能使用 Time::Second 常量操作它们。