最近用Common Lisp開發(fā)一個(gè)個(gè)人項(xiàng)目，需要記錄發(fā)出的HTTP請(qǐng)求的參數(shù)，包括了目標(biāo)地址、HTTP body，以及HTTP頭部等多種信息。為了可以結(jié)構(gòu)化地存儲(chǔ)這些數(shù)據(jù)（比如HTTP頭部是由多個(gè)鍵值對(duì)組成的），我選擇將它們保存到MongoDB中。Google一番后，我找到了cl-mongo這個(gè)庫(kù)，可以在Common Lisp中讀寫MongoDB，嘗試了一下也確實(shí)可以滿足自己的需求。為了方便自己查閱，也為了方便有相同需求的人了解如何使用cl-mongo，于是寫了這篇文章。

首先使用CL-MONGO:MONGO函數(shù)連接MongoDB的服務(wù)器程序（mongod）。因?yàn)樵谖业南到y(tǒng)上mongod進(jìn)程監(jiān)聽的是27017這個(gè)端口，并且我希望使用的數(shù)據(jù)庫(kù)名為test，因此鍵入如下代碼來(lái)連接數(shù)據(jù)庫(kù)

(cl-mongo:mongo :db "test"
                :host "127.0.0.1"
                :port 27017)

連接上了數(shù)據(jù)庫(kù)后，首先嘗試往其中寫入一個(gè)文檔。假設(shè)現(xiàn)在要記錄的是發(fā)出的HTTP請(qǐng)求的信息，那么一個(gè)可以寫入的基本信息就是請(qǐng)求的目標(biāo)地址。假設(shè)在命令行的mongo shell中輸入的內(nèi)容如下

db.http_request.insert({uri: 'http://example.com'});

那么使用cl-mongo提供的DB.INSERT函數(shù)達(dá)到上述效果的代碼如下

(cl-mongo:db.insert "http_request"
                    (cl-mongo:kv "uri" "http://example.com"))

求值上述代碼后返回值為NIL。為了將上述寫入的文檔重新查詢出來(lái)，需要使用cl-mongo提供的DB.FIND函數(shù)。因?yàn)橹挥幸粋€(gè)文檔，所以直接查詢就可以查看到結(jié)果了。在mongo shell中我們可以使用如下代碼查詢

db.http_request.find();

使用DB.FIND函數(shù)的話編寫的代碼可能會(huì)長(zhǎng)得像下面這樣

(cl-mongo:db.find "http_request" :all)

在我的系統(tǒng)上求值了上述代碼后在REPL中輸出的內(nèi)容如下

((86 449 0 1 8 0 0 1 "http_request")
 (<CL-MONGO:DOCUMENT> : { 
   _id : CL-MONGO::BSON-OID [#(89 52 26 160 109 156 254 71 184 115 102 30)]
   elements : 1}

))

值得注意的是，DB.FIND的返回值不完全是文檔組成的數(shù)組，而是在這個(gè)結(jié)果集的數(shù)組之外又多了一層列表，并且列表的第一個(gè)元素還是一個(gè)一看之下不知其所以然的子列表。由于cl-mongo的GitHub上沒(méi)有提及這個(gè)玩意兒的來(lái)歷，我也沒(méi)有深入去了解DB.FIND函數(shù)的實(shí)現(xiàn)代碼，因此這個(gè)元素就先忽略它吧。如果需要使用DB.FIND查詢到的結(jié)果，那么開發(fā)者需要對(duì)DB.FIND的返回值應(yīng)用一下函數(shù)SECOND才行，如下

(second (cl-mongo:db.find "http_request" :all))

返回值的列表中的每一個(gè)元素都是CL-MONGO:DOCUMENT這個(gè)類的實(shí)例對(duì)象，如果要直接使用還是稍微有點(diǎn)不方便的，因此我寫了一個(gè)函數(shù)用來(lái)將DB.FIND函數(shù)查詢到的CL-MONGO:DOCUMENT的實(shí)例對(duì)象都轉(zhuǎn)換為較為熟悉，容易操作的數(shù)據(jù)類型——association list，函數(shù)的定義如下

(defun document-to-alist (doc)
  "Convert a DOC of type CL-MONGO:DOCUMENT to a equivalent, serializable alist."
  (check-type doc cl-mongo:document)
  (labels ((aux (doc)
             (cond ((typep doc 'cl-mongo:document)
                    (let ((keys (cl-mongo:get-keys doc)))
                      (mapcar #'(lambda (key)
                                  (cons key
                                        (aux (cl-mongo:get-element key doc))))
                              keys)))
                   (t doc))))
    (let ((id (cl-mongo:doc-id doc)))
      (append (aux doc) (list (cons "_id" id))))))

使用如下代碼即可查看方才所寫入的文檔究竟長(zhǎng)什么樣子了

(document-to-alist (first (second (cl-mongo:db.find "http_request" :all))))

如果想要修改數(shù)據(jù)庫(kù)中的文檔，例如增加一個(gè)字段，那么可以使用cl-mongo提供的DB.UPDATE函數(shù)，用法如下

(cl-mongo:db.update "http_request"
                    (cl-mongo:kv "uri" "http://example.com")
                    (cl-mongo:kv "$set"
                                 (cl-mongo:kv "method" "GET")))

最后如果要?jiǎng)h除剛才所寫入的這個(gè)文檔，可以使用cl-mongo的DB.DELETE函數(shù)（我很好奇這個(gè)函數(shù)居然不是叫做DB.REMOVE），用法如下

(cl-mongo:db.delete "http_request"
                    (cl-mongo:kv "uri" "http://example.com"))