perl - Date::Calc - 格式化日期和月份

Question

我在这里要做的就是如果日或月是个位数，在
它的前面。现在它打印出日期为 201188，我正在寻找
20110808。

#!/usr/bin/perl
use Date::Calc qw(Add_Delta_Days); 
my (undef, undef, undef, $day, $month, $year) = localtime(); 
$year +=1900; 
$month +=1; 
($year, $month, $day ) = Add_Delta_Days($year, $month, $day, -3)
if ($month =~ /\d{1}/){
    s/$month/0$month/
}  
if ($day =~/\d{1}/){ 
    s/$day/0$day/
}
print $year,$month,$day; 

Answer 1

如果您愿意使用 Date::Calc ，为什么不使用 DateTime ?

use DateTime;
my $date = DateTime->now;
$date->subtract(days => 3);
print $date->ymd;

实际上，您可以将其减少为:

print DateTime->now->subtract(days => 3)->ymd