problem coding new file layout 3

[jfite]

Hello all. I was hoping I could rack some professional minds about modifying some code. I'm not a programmer, but can read some languages to an extent and make simple mods, but I really need some help on this one.

I have a conversion that would take an 8 digit number for a birthday, YYYYMMDD and rearrange it to MMDDYYYY.
Original code:

my ( $year, $date ) = unpack( qq{A4 A4}, $revBirthDate );
    $birthDay = ( $date . $year );

What I'm facing now is a change in the file layout that I convert. I need to change the format (M)M/(D)D/YYYY to my usual MMDDYYYY. The parantheses are only there if it is actually a two digit date, so I need to convert 1,2,3 to 01,02,03 etc. I am also faced with the problem of the "/" character and need to get rid of that.

Appreciate any help.

-J

 

[dmazzini]

Hi

Some code..It might help you.

#YYYYMMDD and rearrange it to MMDDYYYY

my $birthdate = '2006/7/23';
$birthdate =~ s{(\d+)/(\d+)/(\d+)}{$2/$3/$1};
$mm = sprintf("%02d",$2);
$dd = sprintf("%02d",$3);
$birthdate=$mm.$dd.$1;
print "$birthdate\n";

dmazzini
GSM System and Telecomm Consultant

 

[KevinADC]

or without the temp variables:

my $birthdate = '2006/7/23';
$birthdate =~ s|(\d+)/(\d+)/(\d+)|sprintf("%02d",$2).sprintf("%02d",$3).$1|e;
print "$birthdate\n";

- Kevin, perl coder unexceptional!

 

[dmazzini]

You're the man Kevin!

I did not know how to concatenate the reg expression with the sprint function.

A nice one!





dmazzini
GSM System and Telecomm Consultant

 

[KevinADC]

thanks, but you really did all the work. Here's another honorary star for your post (I already gave you one so can't give anymore real ones):

heck, since they are honorary, here's a bunch of them:

- Kevin, perl coder unexceptional!

 

[MillerH]

And maybe a little more concise:

my $birthdate = '2006/7/23';
$birthdate =~ s|(\d+)/(\d+)/(\d+)|sprintf("%02d%02d%s",$2,$3,$1)|e;
print "$birthdate\n";

 

[KevinADC]

star fest!

- Kevin, perl coder unexceptional!