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

Question

如果今天是一月，1，2012年，如何返回的日期「20120101' 字符串

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

感謝

Answer 1

use Time::Piece; 

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

或簡單

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

Answer 2

從Perl核心：

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

Answer 3

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