perl - 格式化日期时间输出

Question

如何使用日期时间转换我的返回:

这是我的日期: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');