MongoDB Perl更新命令

Question

I would like to update a field without losing the others fields of the collection from perl script.

for example I have this collection :

{
"userid": 1234,
"username": "tester",
"password": "*****",
"fullname": "For Test Only",
"emails" :[
     { "email": "test1@mail.com", "active": true },
     { "email": "test2@mail.com", "active": true }
]
}

And I would like to change to this :

{
 "userid": 1234
 "username": "tester",
 "password": "*****",
 "fullname": "For Test Only",
 "emails" :[
     { "email": "test1@mail.com", "active": false},
     { "email": "test2@mail.com", "active": true }
]
}

When I tried to change it from my perl script using this :

$update_result = $users->update_one(
                                    { 'userid' => $doc->{'userid'}},
                                    { '$set'     => { 'emails.[0].email.active' => false }},
                                    { 'upsert'   => 1}
                                );

I got the following result which is NOT expected :

{
     "userid": 1234
     "username": "tester",
     "password": "*****",
     "fullname": "For Test Only",
     "emails" :[
         { "active": false},
         { "email": "test2@mail.com", "active": true }
    ]
}

The email disappear !! . Any idea why is NOT keeping the email ?

Thank you.

Answer 1

you don't need the extra email. in there:

$update_result = $users->update_one(
                                    { 'userid' => $doc->{'userid'}},
                                    { '$set'     => { 'emails.[0].active' => false }},
                                    { 'upsert'   => 1}
                                );