Question

我想使用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" }

Answer 1

您在示例代码中缺少匿名数组构造函数（方括号） - 但在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）”

Answer 2

啊，就是这样：

#!/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 ] } }

Perl和MongoDB：将对象数组插入键值对

2 个答案: