CoderZone.org

Category: >> Perl Code >> Get Date 30 days ago Bookmark and Share

<< lastnext >>

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)

Author: CoderZone
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');
 
 
There haven't been any comments added for this snippet yet. You may add one if you like.  Add a comment 
© coderzone.org | users online: 9