Perl mongodb supprimer la question de l'enregistrement

Question

Utilisez le code suivant, supprimez le document spécifié.

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

}

si on utilise ce code:

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

}

supprimer tous les documents.

mongodb ne peut pas accepter l'oid comme critère pour supprimer un document?

Answer 1

Utilisez la méthode MongoDB :: OID pour créer l'objet _id au lieu de $ 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}); 

}