mongodb - Perl MongoDB::Collection 聚合函数的示例使用

Question

谁能分享一个在 Perl 中正确使用 MongoDB::Collection 聚合函数的示例？我正在寻找一个字段的简单总和，其中另一个字段等于某个值 x。

从那里我将能够弄清楚其余的。

谢谢

Answer 1

这是我建立的一个例子。

for (my $i=0; $i<100; $i++) {
    my $number = $i*100;
    my $result = $collection->aggregate([{"\$match" => {"b" => {"\$gte" => $number, "\$lt" => $number+1000}}}, {"\$group" => {"_id" => 0, "average" => {"\$avg" => "\$b"}, "count" => {"\$sum" => 1}}}]);
    print Dumper($result);
}

您可以在http://docs.mongodb.org/manual/aggregation/找到更多信息。