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

Question

如果今天是2012年1月1日，如何返回一串日期＆＃34; 20120101＆＃39; ？

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");