Perl和MongoDB更新问题

Question

我尝试在perl上使用https://metacpan.org/release/MongoDB模块，发现了一个小错误，或者我没有足够的文档材料

这是我收到错误的地方

{ "_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' }});

试试这个，它应该有效。