使用时间戳获取和插入日期

时间:2016-04-18 10:39:42

标签: sql perl

我正在编写一个perl脚本,它将数据从一个数据库中的表复制到另一个数据库中的同一个表中。我正在使用DBI获取与DBS的连接。 我注意到,当我复制数据时,它没有被正确复制 在源表中,如果日期是这样的 - '04 / 22/1996 13:51:15 PM' 在目的地表中,它看起来像这样 - '22 APR 1996'。 有人可以帮我复制确切的日期吗?

提前致谢

1 个答案:

答案 0 :(得分:0)

#!/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');