Question

我试图在MongoDB中实现一个简单的消息队列。但我无法使用findAndModify来处理cl-mongo。

在mongo shell中我可以这样做（为了便于阅读而重新格式化）：

> db.queue2.insert(
{
    "data": "test",
    "date_created": new Date(),
    "date_updated": null,
    "date_completed": null,
    "state": 0
})
WriteResult({ "nInserted" : 1 })

> db.queue2.findAndModify(
{
    query: {"state": 0},
    update: {
        $inc: {"state": 1},
        $currentDate: {"date_updated": false}
    }
})
{
    "_id" : ObjectId("56e7142c3ade7afa5209bf0f"),
    "data" : "test",
    "date_created" : ISODate("2016-03-14T19:42:36.860Z"),
    "date_updated" : null,
    "date_completed" : null,
    "state" : 0
}

> db.queue2.find()
{
    "_id" : ObjectId("56e7142c3ade7afa5209bf0f"),
    "data" : "test",
    "date_created" : ISODate("2016-03-14T19:42:36.860Z"),
    "date_updated" : ISODate("2016-03-14T19:43:10.499Z"),
    "date_completed" : null,
    "state" : 1
}

我可以在cl-mongo中使用find：

> (pp (db.find "queue2" (kv "query" (kv "state" 0))))

  {
    "_id" -> objectid(56E858283ADE7AFA5209BF10)
    "data"  -> test
    "date_created"  -> CL-MONGO::BSON-TIME Tue Mar 15 2016 19:44:56 (GMT+1)
    "date_updated"  -> NIL
    "date_completed"  -> NIL
    "state"  -> 0.0d0
  }

我尝试使用findAndModify运行db.run-command。阅读文档和cl-mongo代码，我认为它应该像这样调用：

> (pp (db.run-command "findAndModify"
            :arg (kv (kv "query" (kv "state" 0))
                     (kv "update" (kv "$inc" (kv "state" 1))))
            :collection "queue2"))

  {
    "ok"  -> 0.0d0
    "errmsg"  -> need remove or update
  }
NIL

我尝试了一些像:findAndModify这样的变种，试图在列表中传递参数等，但我一直得到同样的错误。

我应该提一下，我是Lisp和MongoDB的新手，所以如果我错过了一些明显的东西，我会道歉。

如何使用cl-mongo运行findAndModify？

Answer 1

最初的想法：update和query在“ findAndModify”的参数中都存在，但也许它们“太深了”，需要传入键值映射中的“顶级”？

如何使用cl-mongo运行findAndModify？

1 个答案: