Beefy Boxes and Bandwidth Generously Provided by pair Networks Joe
Pathologically Eclectic Rubbish Lister
 
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 rifling through the Monastery: (11)
As of 2014-04-17 08:05 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    April first is:







    Results (441 votes), past polls