On Fri, Jul 25, 2014 at 11:54 AM, Chris Knipe <[email protected]> wrote:
> Thu, 23 Oct 2008 12:06:48+0400
>
>
>
> Note the lack of a space between the seconds and the timezone.
>
Well, depending upon the consistency of your one bad case (presuming the
date string is in $_ for the moment):
if ( s/(\w+, \s+ \d+ \s+ \w+ \s+ \d+ \s+ [\d:]+) ([+-]\d+/$1 $2/xms )
warn("Fixed bad date str $_\n");
}
either after Date::Parse has failed (and so retry) or a test before, just
in case.
--
a
Andy Bach,
[email protected]
608 658-1890 cell
608 261-5738 wk
