Запустите MongoDB в Perl

Question

Как преобразовать следующую команду в perl?

dn.runCommand({group : {
    "ns"      : "stocks",
    "key"     : "date",
    "initial" : {"time" : 0},
    "$reduce" : function(doc, prev) {
        if ( doc.time > prev.time ) {
            prev.time  = doc.time;
            prev.price = doc.price;
            }
        },
    "condition" : {"day" : { "$gt" : "2020/09/30 }}
    }}
)

Привет.

Answer 1

Я не проверял приведенный ниже код, но, возможно, он работает.

use MongoDB;
my $db = MongoDB::Connection->new->test;
$db->run_command({
group => {
    "ns"      => "stocks",
    "key"     => "date",
    "initial" => {"time" => 0},
    '$reduce' => 'function(doc, prev) {
         if ( doc.time > prev.time ) {
            prev.time  = doc.time;
            prev.price = doc.price;
         }
    }',
    "condition" => {"day" => { '$gt' => "2020/09/30" }}
}}
);