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


Perl: the Markov chain saw
	PerlMonks

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

by Hanfresco (Novice)

on Jul 10, 2017 at 16:11 UTC ( [id://1194722]=note: print w/replies, xml )

Need Help??

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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1194722]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others surveying the Monastery: (4)

As of 2024-04-24 20:59 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found