Clojure 学习 —— 连接mongodb

clojure 连接mongodb简单介绍及示例

clojure 连接 mongodb示例

project.clj 文件添加monger依赖: [com.novemberain/monger "1.5.0"]

1
2
3
4
5
6
7
8
9
10
11
12
13
14

(defproject myClojure "0.1.0-SNAPSHOT"
:description "FIXME: write description"
:url "http://example.com/FIXME"
:license {:name "Eclipse Public License"
:url "http://www.eclipse.org/legal/epl-v10.html"}

:dependencies [
[org.clojure/clojure "1.5.1"]
[org.clojure/java.jdbc "0.0.6"]
[org.clojure/clojure-contrib "1.2.0"]
[mysql/mysql-connector-java "5.1.26"]

[com.novemberain/monger "1.5.0"]
])

示例代码:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56

; clojure connect to mysql
; ithomer.net
; 2013.12.10

(ns myClojure.mongo3
(:use [monger.core :only [connect! connect set-db! get-db]])
(:require [monger.core :as mg]
[monger.collection :as mc]))


;; 函数
(defn -main[& m]

;; (connect!) ;; 默认连接库 { :host "localhost" :port 27017 }
(connect! { :host "172.27.22.21" :port 27017}) ; 指定 host 和 port

(set-db! (mg/get-db "homer-db"))

;; 清空collection
(mc/remove "workflow")

;; 单条插入
(mc/insert "workflow" {:name "blog" :url "http://blog.ithomer.net" :copyright "ithomer" :dtime "2009-07-31"})
(mc/insert "workflow" {:name "forum" :url "http://blog.ithomer.net" :copyright "ithomer" :dtime "2013-12-01" })

;; 批量插入
(mc/insert-batch "workflow" [{:name "csdn" :url "http://blog.csdn.net/ithomer" :copyright "ithomer" :dtime "2010-01-01" }
{:name "csdn2" :url "http://blog.csdn.net/sunboy_2050" :copyright "ithomer" :dtime "2012-06-30" }])


;; 全量查询
(doseq [item (map list (mc/find-maps "workflow"))]
(println item))


;; 条件查询
(println) ;; 空一行
(doseq [item (mc/find-one "workflow" { :name "blog" })]
(println item))

(println (mc/find-one "workflow" { :name "blog" }))

;; 更新
(mc/update "workflow" {:name "csdn"} {:copyright "yanggang"} :upsert true)

;; 删除
(mc/remove "workflow" { :name "csdn2" })

;; 全量查询删除后的结果
(println)
(doseq [item (map list (mc/find-maps "workflow"))]
(println item))


;; 关闭连接
(monger.core/disconnect!)
)


; 执行函数
(-main)

运行结果:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

({:_id #<ObjectId 52a6a9e1e4b0e53f523a9ddb>, :copyright ithomer, :name blog, :dtime 2009-07-31, :url http://blog.ithomer.net})
({:_id #<ObjectId 52a6a9e1e4b0e53f523a9ddc>, :copyright ithomer, :name forum, :dtime 2013-12-01, :url http://blog.ithomer.net})
({:_id #<ObjectId 52a6a9e1e4b0e53f523a9ddd>, :copyright ithomer, :name csdn, :dtime 2010-01-01, :url http://blog.csdn.net/ithomer})
({:_id #<ObjectId 52a6a9e1e4b0e53f523a9dde>, :copyright ithomer, :name csdn2, :dtime 2012-06-30, :url http://blog.csdn.net/sunboy_2050})

#<Entry _id=52a6a9e1e4b0e53f523a9ddb>
#<Entry copyright=ithomer>
#<Entry name=blog>
#<Entry dtime=2009-07-31>
#<Entry url=http://blog.ithomer.net>
#<BasicDBObject { "_id" : { "$oid" : "52a6a9e1e4b0e53f523a9ddb"} , "copyright" : "ithomer" , "name" : "blog" , "dtime" : "2009-07-31" , "url" : "http://blog.ithomer.net"}>

({:_id #<ObjectId 52a6a9e1e4b0e53f523a9ddb>, :copyright ithomer, :name blog, :dtime 2009-07-31, :url http://blog.ithomer.net})
({:_id #<ObjectId 52a6a9e1e4b0e53f523a9ddc>, :copyright ithomer, :name forum, :dtime 2013-12-01, :url http://blog.ithomer.net})
({:_id #<ObjectId 52a6a9e1e4b0e53f523a9ddd>, :copyright yanggang})

mongo数据库内容:
clojure_sql_mongo.png

参考推荐:
Monger, a Clojure client for MongoDB
clojure简单操作mongo
Clojure 学习入门(8)—— 连接mongodb

文章目录
  1. 1. clojure 连接 mongodb示例