Help for this page

Select Code to Download


  1. or download this
    my($day, $month, $year) = (localtime)[3,4,5];
$month = sprintf '%02d', $month+1;
$day   = sprintf '%02d', $day;
$year = $year+1900;
$ymd = "$year-$month-$day";
  2. or download this
    use POSIX qw(strftime);
my $ymd = strftime('%Y-%m-%d', localtime);