gpt4 book ai didi

perl - 从 Perl 驱动程序插入 MongoDB 服务器日期

转载 作者:可可西里 更新时间:2023-11-01 09:32:02 25 4
gpt4 key购买 nike

从 MongoDB 控制台,我可以:

>  db.log.insert({ dt : new Date })
> db.log.find().sort({ $natural : -1 }).limit(1)
{ "_id" : ObjectId("50caae2cadd0e471af0b3941"), "dt" : ISODate("2012-12-14T04:42:20.560Z") }

如何从 Perl MongoDB 驱动程序执行相同的操作?

背景

我正在使用带有上限集合的 MongoDB 进行日志记录。我知道 ObjectID 包含时间戳,但是显示它和查询它并不简单。因此,我想为每个条目添加一个基于服务器的时间戳,但无法弄清楚如何通过 Perl 驱动程序传递文字命令。

最佳答案

Perl MongoDB 驱动程序使用 DateTime 对象存储日期,如果您从数据库中读取日期,则将 DateTime 对象返回给您。

#!/usr/bin/env perl
use strict;
use warnings;
use MongoDB;
use MongoDB::OID;
use DateTime;

# database connection & collection
my $conn = MongoDB::Connection->new;
my $db = $conn->dates;
my $log = $db->log;

# Delete Collection
$log->drop;

# Insert one
my $oid = $log->insert({ dt => DateTime->now });

# Show all
my $all = $log->find;
while ( my $entry = $all->next ) {
printf "_id: %s dt: %s\n", $entry->{_id}->to_string, $entry->{dt}->format_cldr("dd.MM.yyyy HH:mm:ss");
}

如果你执行它,它会打印类似的东西

_id: 50cb1b9321d30efd17000000 dt: 14.12.2012 12:29:07

您还应该阅读 DateTime 文档以了解您可以使用它做什么:http://search.cpan.org/perldoc?DateTime

在连接启动时,您还可以设置所需的日期对象。

http://search.cpan.org/perldoc?MongoDB::Connection#dt_type

例如,如果将它设置为 DateTime::Tiny,它会更快。但是您应该首先了解 DateTime 和 DateTime::Tiny 之间的区别。阅读展位文档并决定在哪种情况下更好。


上面的例子创建了客户端时间。如果您想要来自服务器而不是客户端的时间,因为客户端/服务器不相同。您可以做两件事。

首先,创建一个返回 Date 对象的 JavaScript 函数,并在服务器上评估该函数。

# JavaScript function that return a Date object
my $now = MongoDB::Code->new(code => qq{function(){
return new Date
}});

# later...
my $oid = $log->insert({
dt => $dt,
st => $db->eval($now),
});

第二种可能。 MongoDB 的默认“_id”对象已经包含对象创建时的时间戳。至少文档说它来自服务器,我希望它真的来自服务器而不是驱动程序创建的。但是,如果 $entry 是您的 MongoDB 结果,您可以通过这种方式从中获取 DateTime 对象:

my $dt = DateTime->from_epoch(epoch => $entry->{_id}->get_time);

例子:

#!/usr/bin/env perl
use strict;
use warnings;
use MongoDB;
use MongoDB::OID;
use MongoDB::Code;
use DateTime;

# database connection & collection
my $conn = MongoDB::Connection->new;
my $db = $conn->dates;
my $log = $db->log;

# Delete Collection
$log->drop;

# Client Time
my $dt = DateTime->now;

# JavaScript function that return a Date object
my $now = MongoDB::Code->new(code => qq{function(){
return new Date
}});

# wait 2 seconds to see a difference between
# $dt and the $now function
sleep 2;

# Insert one
$log->insert({
dt => $dt,
st => $db->eval($now),
});

sleep 2;

$log->insert({
dt => $dt,
st => $db->eval($now),
});

# Show all
my $dtf = "dd.MM.yyyy HH:mm:ss";
my $all = $log->find;
while ( my $entry = $all->next ) {
printf "dt: %s\n", $entry->{dt}->format_cldr($dtf);
printf "st: %s\n", $entry->{st}->format_cldr($dtf);
printf "_id time: %s\n", DateTime->from_epoch(epoch => $entry->{_id}->get_time)->format_cldr($dtf);
print "\n";
}

输出:

dt: 14.12.2012 16:29:28
st: 14.12.2012 16:29:30
_id time: 14.12.2012 16:29:30

dt: 14.12.2012 16:29:28
st: 14.12.2012 16:29:32
_id time: 14.12.2012 16:29:32

关于perl - 从 Perl 驱动程序插入 MongoDB 服务器日期,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13872884/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com