Quick Search:
 Perl Code: Get Date 30 days ago Jump to:  
Category: >> Perl Code >> Get Date 30 days ago  

<< 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)

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');

   Home |    Search |    Code Library |    Sponsors |    Privacy |    Terms of Use |    Contact Us © 2003 - 2024 psoug.org