如何使用perl獲取去年的日期和當前日期？

Question

我想獲取當前日期和時間的140220和130220.

Answer 1

格式用perl正是去年的日期也許下面將幫助：

use strict; 
use warnings; 
use Time::Piece; 

my $time  = Time::Piece->new; 
my $currDate = $time->strftime('%y%m%d'); 
print $currDate, "\n"; 

my $lastYear = $time->add_years(-1)->strftime('%y%m%d'); 
print $lastYear; 

輸出：

140219 
130219 

Answer 2

這裏是使用DateTime的樣本。

#!/usr/bin/env perl 

use strict; 
use warnings; 
use feature qw/say/; 
use DateTime; 

my $dt = DateTime->now(); 
my $year_ago = DateTime->now()->subtract(years => 1); 

say $dt->strftime("%y%m%d"); 
say $year_ago->strftime("%y%m%d");