[英]Fetching and inserting date with time stamp
我正在編寫一個perl腳本,該腳本將數據從一個數據庫中的一個表復制到另一個數據庫中的同一表。 我正在使用DBI獲得與DBS的連接。 我發現復制數據時,復制不正確。
在源表中,如果日期是這樣的-'04 / 22/1996 13:51:15 PM'
在目標表中,它看起來像是“ 1996年4月22日”。 有人可以幫我復制確切的日期嗎?
提前致謝
#!/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');
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.