Select Code to Download

Select or download this

qwurx [shmem] ~> perl -MDate::Parse -le 'print str2time pop' '19 Aug 1
+2:00 PM EDT'
1440000000
qwurx [shmem] ~> perl -MDate::Parse -le 'print scalar localtime str2ti
+me pop' '19 Aug 12:00 PM EDT'
Wed Aug 19 18:00:00 2015

Select or download this

qwurx [shmem] ~> perl -MData::Dumper -MDate::Parse -le '@hash{qw(sec m
+in hour mday mon year wday yday isdst)} = localtime str2time pop;prin
+t Data::Dumper->Dump([\%hash],[qw(timehash)])' '19 Aug 12:00 PM EDT'
$timehash = {
...
              'hour' => 18,
              'mday' => 19
            };