दिनांक :: कैल्क - दिन और महीना प्रारूप

Question

मैं यहां ऐसा करने की कोशिश कर रहा हूं कि दिन या महीना एक अंक है, में शून्य जोड़ने के लिए। अभी यह 201,188 के रूप में की तारीख से बाहर प्रिंट, और मैं के लिए 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

रहा हूँ अगर ($ महीने < 10)
{
          $ महीने = "0 $ महीने" ;
}

अगर ($ दिन < 10)
{
          $ दिन = "0 $ दिन";
} printf

Answer 2

उपयोग के बजाय:

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

आप Date::Calc उपयोग करने के लिए खुश हैं, तो क्यों DateTime का उपयोग नहीं:

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

उत्पादन जैसे देता है?

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

वास्तव में आप कम कर सकते हैं कि करने के लिए:

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