perl MongoDB batch_insert - upsert로 수행 할 수 있습니까?

Question

펄, MongoDB를 2.4.9, 펄 MongoDB를 0.702.1

내가 $collection->batch_insert(\@array)을 실행, 그것은 잘 작동하지만,이 경우 upsert 할 수 있도록 어떤 방법이 ?

Answer 1

왜 그렇게하고 싶은지 확실하지 않습니다. 일치 기준에 기존 문서가있는 경우이를 파괴적으로 덮어 씁니다. 나는 것을 실행하면

use v5.10; 
use strict; 
use warnings; 
use MongoDB; 
use MongoDB::OID; 

my $mc = MongoDB->connect; 
my $coll = $mc->ns("test.foo"); 
$coll->drop; 

my @docs = map { { _id => MongoDB::OID->new, x => $_ } } 1 .. 10; 

# insert half as normal 
my $res = $coll->insert_many([ map { $docs[ 2 * $_ + 1 ] } 0 .. 4 ]); 
say "Inserted " . $res->inserted_count . " docs"; 

# upsert whole batch 
$res = $coll->bulk_write([ 
    map { (replace_one => [ { _id => $_->{_id} }, $_, { upsert => 1 } ]) } 
    @docs 
]); 

say "Matched " . $res->matched_count . " docs"; 
say "Upserted " . $res->upserted_count . " docs"; 

: 당신이 미리 OID를 추가하면

그럼에도 불구하고, v1.0.0 개발자 이상 드라이버 (그리고 버전 2.6 이상 mongod)와 함께, 당신은 이런 식으로 뭔가를 할 수 다음과 같이 표시됩니다.

Inserted 5 docs 
Matched 5 docs 
Upserted 5 docs