date conversion

shan79 · #1 (**permalink**) 02-16-05, 22:14

Hi,

I need to convert in perl a datetime variable bcp'ed out from a sybase database, which is in format 'Feb 4 2005 12:00:00:000AM'
to the following format '20050204' dropping the time part.

Can anybody please give me some ideas on how to do this?

Thanks,
shan

Pat Phelan · #2 (**permalink**) 02-16-05, 23:35

There are probably a gazillion more perl-ish ways, but I'd probably use:

Code:

$bcp = "Feb 4 2005 12:00:00:000AM";

%month = ("Jan", 1, "Feb", 2, "Mar", 3, "Apr", 4, "May", 5, "Jun", 6
,  "Jul", 7, "Aug", 8, "Sep", 9, "Oct", 10, "Nov", 11, "Dec", 12);

@a = split / /, $bcp;
printf "%04d%02d%02d\n", $a[2], $month{$a[0]}, $a[1];

-PatP