Help for this page

Select Code to Download

Select or download this

[me ~]$ perl datefail.pl --startday='-15 days' --endday='-14 days'
Start with Today
...
20151101T01:51-0700
Strip the minutes
20151101T01:00-0700

Select or download this

#!/usr/bin/perl

...
$zeroStartMDelta = new Date::Manip::Delta($zeroStartM);
$dateObjStart = $dateObjStart->calc($zeroStartMDelta);
print $dateObjStart->printf('%Y%m%dT%H:%M%z') . "\n";