clojure 连接 mongodb示例
project.clj 文件添加monger依赖: [com.novemberain/monger "1.5.0"]
(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"]
])
示例代码:
; 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)
运行结果:
({:_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数据库内容:
参考推荐:
Monger, a Clojure client for MongoDB