Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: A quick date swap from a string

by poolpi (Hermit)
on Jul 09, 2009 at 08:15 UTC ( #778499=note: print w/ replies, xml ) Need Help??


in reply to A quick date swap from a string

#!/usr/bin/perl use strict; use warnings; my @month_name = qw/ january february march april may june july august september /; my $month = {}; for ( 0 .. $#month_name ) { $month_name[$_] =~ s/(\w{3})(\w*)/$1(?:$2)?/; $month->{qr/$month_name[$_]/} = $_ + 1; } sub month_to_num { my $date = shift; for ( keys %$month ) { last if $date =~ s/$_/$month->{$_}/; } return $date; } printf "%02s %02d %4d\n", split /\s+/, month_to_num($_) for ( 'dec 7 2008', 'may 25 2003', 'march 01 1897' ); # Output: # dec 07 2008 # 05 25 2003 # 03 01 1897


hth,
PooLpi

'Ebry haffa hoe hab im tik a bush'. Jamaican proverb


Comment on Re: A quick date swap from a string
Download Code
Reaped: Re^2: A quick date swap from a string
by NodeReaper (Curate) on Aug 07, 2009 at 11:31 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://778499]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2015-07-02 04:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (27 votes), past polls