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

使用MongoDB :: OID方法创建_id对象而不是$ conn-> 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}); 

}