Question

If today is Jan, 1, 2012, how to return a string of date “20120101′ ?

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

Thanks

Answer 1

use Time::Piece;

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

or simpler

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