Ngày tháng :: Calc - định dạng ngày và tháng

Question

Tất cả những gì tôi đang cố gắng làm ở đây là ngày hoặc tháng là một chữ số duy nhất, để thêm một số không ở mặt trước của nó. Ngay bây giờ nó in ra ngày như 201.188, và tôi đang tìm kiếm 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

if ($ tháng < 10)
{
          $ tháng = "$ 0 tháng" ;
}

if ($ ngày < 10)
{
          $ ngày = "0 $ ngày";
}

Answer 2

Sử dụng printf thay vì:

printf "%d-%02d-%02d", $year, $month, $day; 

Cung cấp đầu ra như:

C:\perl>perl -we "printf qq(%d-%02d-%02d), 2011,5,4" 
2011-05-04 
C:\perl>perl -we "printf qq(%d-%02d-%02d), 2011,5,12" 
2011-05-12 
C:\perl>perl -we "printf qq(%d-%02d-%02d), 2011,22,12" 
2011-22-12 

Answer 3

Nếu bạn hài lòng sử dụng Date::Calc, tại sao không sử dụng DateTime?

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

Trong thực tế, bạn có thể giảm đến:

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