Commande de mise à jour MongoDB Perl

Question

Je voudrais mettre à jour un champ sans perdre les autres champs de la collection du script Perl.

par exemple, j'ai cette collection:

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

Et je voudrais changer à ceci:

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

Quand j'ai essayé de le changer de mon script Perl utilisant ceci:

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

J'ai obtenu le résultat suivant qui n'est PAS attendu:

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

L'email disparaît !! . Une idée pourquoi ne garde pas l'email?

Merci.

Answer 1

vous n'avez pas besoin du email. supplémentaire là-bas:

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