Re^4: How to format dates prior to 1970?

in reply to Re^3: How to format dates prior to 1970?
in thread How to format dates prior to 1970?

#!/usr/bin/perl

use v5.10;
use strict;
use warnings;

use Data::Dumper;
use DateTime::Format::Strptime;

$Data::Dumper::Sortkeys = 1;

my $parser = DateTime::Format::Strptime->new(pattern => '%m/%d/%Y', on
+_error => 'croak');
my $date = '05/10/1969';
my $dt = $parser->parse_datetime($date);
say $dt->ymd;
say $dt->strftime('%Y-%m-%d');
[download]

Interesting! This seems to work even with strftime; no seg faults!

Comment on Re^4: How to format dates prior to 1970? Download Code

Replies are listed 'Best First'.
Re^5: How to format dates prior to 1970? by ikegami (Patriarch) on Jul 10, 2017 at 16:24 UTC
DateTime isn't based around epoch times, so it will indeed work with older-than-epoch times without problem.	[reply]

In Section Seekers of Perl Wisdom