在Perl中运行MongoDB

如何在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 }}
    }}
)

---

尊敬。

我还没有测试下面的代码，但它可能会工作

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" }}
}}
);

---

我从未使用过MongoDB，因此没有任何具体帮助，但我建议使用from CPAN将是一个良好的开端。我是一个新手，所以我从未想过编写自己的MongoDB驱动程序。如果您对cpan mongodb有一点经验，那么您必须知道mongo控制台中的命令与cpan mongodb不同。