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});

}