Perl mongodb 기록 질문을 제거

Question

다음 코드를 사용하여 지정된 문서를 삭제하십시오.

sub delete_post{ 
my $post_id = shift; 
my $post_to_delete = $posts->find_one({"_id" => $conn->oid($post_id)})->{_id}; 
$posts->remove({"_id" => $post_to_delete}); 

}

경우 사용이 코드 :

sub delete_post{ 
my $post_id = shift; 
$posts->remove({"_id" => $conn->oid($post_id)}); 

}

제거 모든 문서.

mongodb는 문서 삭제 기준으로 oid를 수락 할 수 있습니까?

Answer 1

$ conn-> oid 대신에 _id 오브젝트를 생성하려면 MongoDB :: OID 메소드를 사용하십시오.

sub delete_post{ 
my $post_id = shift; 
my $oid = MongoDB::OID->new(value => $post_id); 
$posts->remove({"_id" => $oid}); 
$db->log->insert({"removed_post" => $post_id}); 

은}