Perl Code: Get Date 30 days ago - The easy way to get the date 30 days ago- or any number of days, for that matter.<br /> <br /> Thi

Quick Search:

Perl Code: Get Date 30 days ago

Jump to:

Snippet Name: Get Date 30 days ago

Description: The easy way to get the date 30 days ago- or any number of days, for that matter.

This uses Sullivan Beck's Date::Manip module.

Comment: (none)

Language: PERL
Highlight Mode: PLSQL
Last Modified: March 06th, 2009

USE DATE::Manip;
 
my $today = localtime;
my $last_month = DateCalc('30 days ago', $today);
print join '/', UnixDate($last_month, '%Y', '%m', '%d');