Проблема обновления Perl и MongoDB

Question

Я пытался использовать https://metacpan.org/release/MongoDB модуль поверх Perl и обнаружил небольшую ошибку, или у меня недостаточно материала на doc

это где я получил ошибку

{ "_id" : ObjectId("4f625c0fcd4481bc13000000"), "mode" : "running", "res" : "running", "custid":NumberLong(155655062)}

db.movie.update({custid:NumberLong(155655062)},{'$set':{mode:"testing"}});

Я могу обновить вещь здесь, но не могу обновить из кода Perl.

my $res = $db->movie->update({'custid'=>'NumberLong(155655062)'},{'$set' => { 'mode' => 'testing' }});

я пропустил какой-либо код в приведенном выше примере

Answer 1

my $cust_id = 155655062; OR my $cust_id = int($record->{custid});
my $res = $db->movie->update({'custid'=>$cust_id},{'$set' => { 'mode' => 'testing' }});

Попробуйте, это должно работать.