带时间戳的获取和插入日期

Question

I am writing a perl script which copies data from a table in one db to the same table in other DB. I am using DBI to obtain connection to DBS. I noticed that when I am copying data,it's not copied properly.
In source table if date is like this-'04/22/1996 13:51:15 PM'
In destination table it's appearing like this-'22 APR 1996'. Can anyone help me in copying exact date?

Thanks in advance

Answer 1

#!/usr/bin/env perl
use DateTime::Format::Strptime;
my $datetimestr = '04/22/1996 13:51:15 PM';
# 1) parse datetime
my $parser = DateTime::Format::Strptime->new(
    pattern=>'%m/%d/%Y %H:%M:%S %p', 
    on_error  => 'croak',
);
my $dt = $parser->parse_datetime($datetimestr,);
# 2) format datetime for your database format
warn $dt->strftime('%Y-%m-%d %H:%M:%S');