タイムスタンプで日付を取得して挿入する

Question

私は、あるデータベースのテーブルのデータを他のDBの同じテーブルにコピーするperlスクリプトを作成しています。私はDBIとの接続を得るためにDBIを使用しています。 データをコピーしているときに、正しくコピーされていないことに気付きました。
日付がこのような場合のソーステーブル - '04/22/1996 13:51:15 PM '
宛先テーブルでは、' 22 APR 1996 'のように表示されます。 誰でも正確な日付のコピーを手伝ってもらえますか？事前

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');