Help for this page

Select Code to Download


  1. or download this
    use warnings; use strict;
use Date::Manip::Date 6.30; 
...
my $thirty_ago = $today->calc($today->new_delta("-30 days"));
print $thirty_ago->printf("Thirty days ago from today is: %Y-%m-%d\n")
+;
__END__
  2. or download this
    Today is: 2014-04-18
A month ago from today is: 2014-03-18
Thirty days ago from today is: 2014-03-19