On Fri, Jul 25, 2014 at 7:12 PM, Andy Bach <afb...@gmail.com> wrote:
>
> On Fri, Jul 25, 2014 at 11:54 AM, Chris Knipe <sav...@savage.za.org> 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.
Would have to be something generic I suppose. Will look through
Regex::Common as someone else suggested as well. Now that +- timezone
is fixed, now the next one just crops up...
Mi, 18 Nov 09 12:39:57 GMT
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
