perl 如何获取完整的月份和日期？

Question

如果今天是2012年1月1日，如何返回一串日期“20120101”？

sub getDateStr{
    my $date = shift;
    print $date->year.$date->month.$date->day."\n";
    return $date->year.$date->month.$date->day; 
}

谢谢

Answer 1

来自 Perl 核心：

POSIX::strftime( '%Y%m%d', localtime );

Answer 2

use Time::Piece;

$t = localtime()->strftime("%Y%m%d");

或者更简单

$t = localtime()->ymd("");

Answer 3

use DateTime;
print DateTime->now->ymd("");
print DateTime->now->strftime("%Y%m%d");
print DateTime->now->format_cldr("yyyyMMdd");