Perl如何在mongodb中插入日期时间

Question

我是 MongoDB 的新手，我在 2018-08-13 09:56:19 这样的数组中有 MySQL 格式的日期，我想在 MongoDB 中存储一个带有 time_zone -0500 的 ISODate，这样日期就会像 "Date" : ISODate("2018-08-13T09:56:19.000-05:00") 一样插入到 Perl

感谢任何帮助...

Answer 1

你需要使用一个DateTime 解析器，它会使用 MySQL 的格式，但是 MongoDB 会正确地转换 DateTime 对象。但是，为了提高效率，查询时它不会自动膨胀回 DateTime 对象，而是使用中间形式 BSON::Time。有一种方法，as_datetime，可以获取 DateTime 对象。

请看下面的例子：

use Data::Dumper;
use DateTime::Format::MySQL;
use DateTime::Format::RFC3339;
use MongoDB;

# parse the date
my $dt = DateTime::Format::MySQL->parse_datetime( '2003-01-16 23:12:01' );
$dt->set_formatter("DateTime::Format::RFC3339");
say $dt;
# 2003-01-16T23:12:01+00:00

# set TZ
$dt->set_time_zone("America/New_York");
say $dt;
# 2003-01-16T23:12:01-05:00

# connect to the DB and get a MongoDB::Collection to work with
my $mc = MongoDB->connect("mongodb://localhost:27017");
my $coll = $mc->ns('test.foo');

# insert
$coll->insert_one({ date => $dt });

# query
my $doc = $coll->find_one({date => $dt});

# dump the doc -- note the date is now a BSON::Time and there's a
# MongoDB '_id' field added
say Dumper $doc;
# $VAR1 = {
#           '_id' => bless( {
#                             'oid' => '[vöZN@®G¿Ç'
#                           }, 'BSON::OID' ),
#           'date' => bless( {
#                              'value' => '1042776721000'
#                            }, 'BSON::Time' )
#         };

# get it back as a DateTime object and print it out
my $date = $doc->{date}->as_datetime;
$date->set_formatter("DateTime::Format::RFC3339");
say $date;
# 2003-01-17T04:12:01Z
$date->set_time_zone("America/New_York");
say $date;
# 2003-01-16T23:12:01-05:00