Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Formatting STDIN for date format

by boftx (Deacon)
on Sep 19, 2013 at 06:09 UTC ( #1054774=note: print w/replies, xml ) Need Help??

in reply to Formatting STDIN for date format

Here is what I use to handle the most common date formats (assume the usual use strict; and use warnings; as well as use Carp; and use DateTime; are present):

# Utility function to convert a date string to a DT object sub _str2dt { # string that is supposed to be yyyy-mm-dd or mm/dd/yyyy # single digit months/days are allowed with this. my $date = shift; # convert date param to DT object my ($y,$m,$d); if ( $date =~ m/(^\d{4})\-(\d{1,2})\-(\d{1,2})($|\D+)/ ) { $y = $1, $m = $2, $d = $3; } elsif ( $date =~ m/^(\d{1,2})\/(\d{1,2})\/(\d{4})($|\D+)/ ) { $y = $3, $m = $1, $d = $2; } else { croak "Unable to parse date string: $date"; } eval { $date = DateTime->new( year => $y, month => $m, day => $d ) +; } or croak "Invalid date: $date"; return $date; }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1054774]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (6)
As of 2018-05-21 22:36 GMT
Find Nodes?
    Voting Booth?