1

我想使用 perl 将以下 BSON 结构插入到我的 MongoDB 中：

{"name" : "BOB", "stuff" : [{"area1": [1,2,3,4,5]}, {"area2": [5,6,7,8,9]}]}

但是很难找到一个很好的例子。我尝试了以下方法：

#!/usr/bin/perl
use MongoDB;
use MongoDB::Database;
use MongoDB::OID;

my $conn = MongoDB::Connection->new;
my $db = $conn->test;
my $users = $db->real_time10;


$users->insert
({
    "name" => "BOB",
    "stuff" => 
              "area1" => [1,2,3,4,5],
              "area2" => [5,6,7,8,9]
});

在 mongo shell 中查询时大致输出：

db.real_time10.find()

{ "_id" : ObjectId("4fc912fa000207ec08000000"), "ARRAY(0xa5bdd4)" : "area2", "A
RAY(0x2f2e844)" : null, "name" : "BOB", "stuff" : "area1" }

到底是怎么回事？有没有一种简单的方法可以做到这一点？

我的梦想/期望的输出是：

> db.real_time10.find()

{ "_id" : ObjectId("4fc912fa000207ec08000000"), "stuff" : {"area1" : [1,2,3,4,5],   
"area2": [5,6,7,8,9]}, "name" : "BOB" }
4

2 回答 2

3

您在示例代码中缺少匿名数组构造函数（方括号） - 但将它们包含在您的 BSON 示例中。要获得所需的输出，请尝试：

$users->insert({
    "name" => "BOB",
    "stuff" => {
        "area1" => [1,2,3,4,5],
        "area2" => [5,6,7,8,9]
    }
});

通过排除数组构造函数，它使用提供的数组键、值对构建散列，因此它将被解析为以下内容（与您的数据转储匹配）：

{
    "name" => "BOB",
    "stuff" => "area1",
    [1,2,3,4,5] => "area2",
    [5,6,7,8,9] => undef
}

注意：标量上下文中的数组引用将被视为类似“ARRAY(0x6052b8)”的字符串

于 2012-06-01T19:42:28.183 回答
1

啊，是这样的：

#!/usr/bin/perl
use MongoDB;
use MongoDB::Database;
use MongoDB::OID;

my $conn = MongoDB::Connection->new;
my $db = $conn->test;
my $users = $db->real_time10;


$users->insert({
    "name" => "BOB",
    "stuff" => 
          {"area1" => [1,2,3,4,5],
          "area2" => [5,6,7,8,9]}

});

这输出：

{ "_id" : ObjectId("4fc91f110064e9d40b000000"), "name" : "BOB", "stuff" : { "are
a2" : [ 5, 6, 7, 8, 9 ], "area1" : [ 1, 2, 3, 4, 5 ] } }
于 2012-06-01T20:00:52.637 回答