Re^2: Date::Parse - how to correctly parse dates between 1901 and 1969

Hi,

1900 + nonsense is the entire reason for modules like DateTime to exist

 my $formatter = DateTime::Format::Strptime->new(...);
[download]

my $dt = $formatter->parse_datetime( $timestampstring );
[download]

Comment on Re^2: Date::Parse - how to correctly parse dates between 1901 and 1969 Select or Download Code

Replies are listed 'Best First'.
Re^3: Date::Parse - how to correctly parse dates between 1901 and 1969 by eniad (Acolyte) on Feb 20, 2018 at 15:27 UTC
The input can be in variable formats: `my @dates = ( "2018-02-20 00:00:00", "20180220", "02/20/2018", "02/20/18", # interpreted as 1918-02-20 "2018-02-20" );` [download] Date::Parse handles those (with some massaging). DateTime::Format::Strptime requires well formatted dates to begin with. Am I missing a module of DateTime or Time::Piece that can handle the different input formats?	[reply] [d/l]
Re^4: Date::Parse - how to correctly parse dates between 1901 and 1969 by Anonymous Monk on Feb 20, 2018 at 21:10 UTC
`#!/usr/bin/perl -- use strict; use warnings; use DateTime; use DateTime::Format::Natural; my @dates = ( "2018-02-20 00:00:00", "20180220", "02/20/2018", "02/20/18", # interpreted as 1918-02-20 "2018-02-20", "today", "now", ); my $dfn = DateTime::Format::Natural->new; print $dfn->parse_datetime($_),$/ for @dates; __END__ 2018-02-20T00:00:00 2018-02-20T21:12:19 2018-02-20T21:12:19 2018-02-20T21:12:19 2018-02-20T00:00:00 2018-02-20T00:00:00 2018-02-20T21:12:19` [download]	[reply] [d/l]
Re^4: Date::Parse - how to correctly parse dates between 1901 and 1969 by Anonymous Monk on Feb 20, 2018 at 19:04 UTC
So you simply make up a pattern for each format ... ... Could try ..Format::Natural	[reply]