Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (11)
As of 2017-02-24 14:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Before electricity was invented, what was the Electric Eel called?






    Results (354 votes). Check out past polls.