perlで日付を印刷するには？

Question

は、私は次のコードを使用してのcgi-perlで今日の日付を印刷しています：私は正確に7日（1週間）現在の日付の前に正確に日付を印刷する必要が

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = 
       localtime(time); 
       $year = $year + 1900; 
       $mon++; 

       print "$mday/$mon/$year\n"; 

。

Answer 1

これはあなたのために機能しますか？

変更

localtime(time); 

localtime(time - (7 * 24 * 3600)); 

Answer 2

use DateTime qw(); 

my $dt = DateTime->now(time_zone => 'local'); 
$dt->subtract(days => 7); 
say $dt->strftime("%d/%m/%Y");