Date Regex

[rob51383]

Simple question, but I have always been lost when it comes to regular expression.

I need to convert a date that is given in the format "20050302" to "2005-03-02".

So I need a regex that will count 4 insert a "-" then count 2 and insert another "-".

 

[PaulTEG]

my $date="20050302";
$date=substr($date,0,4)."-".substr($date,4,2)."-".substr($date,6,2);

Firing up the regex engine for this would be overkill IMO

--Paul

cigless ...

 

[ishnid]

TIMTOWDTI:

substr $date, $_, 0, '-' for ( 6, 4 );

... or ...

$date = join '-', unpack "A4A2A2", $date;

 

[icrf]

Just for gits and shiggles, I'll go the other route:

use Date::Parse;
use Time::Format;
$date = $time{'yyyy-mm-dd', str2time($date)};

but if ever there were overkill...

________________________________________
Andrew

I work for a gift card company!

 

[goBoating]

#!perl
# "20050302" to "2005-03-02".
$date = '20050302';
$date =~ s/(\d{4})(\d{2})(\d{2})/$1-$2-$3/;
print "TIMTOWDTI: $date ;-)\n";

'hope this helps

If you are new to Tek-Tips, please use descriptive titles, check the FAQs, and beware the evil typo.

 

[ishnid]

Well, while we're still TIMTOWTDIing and the regexps have entered the fray:

print join '-', ( $date =~ /(\d{4})(\d{2})(\d{2})/ );

... or ...

$date =~ s/(?=\d{4}$|\d{2}$)/-/g;
print $date,"\n";

Isn't Perl great ...