Clojure 学习入门（9）—— 连接redis

wsjz_01

　　clojure 连接 redis 示例
　　project.cli 添加redis依赖：[clj-redis "0.0.12"]

(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"]
[com.taoensso/carmine "1.2.1"]
[clj-redis "0.0.12"]
])

　　示例代码：

(ns myClojure.redis2
(require [clj-redis.client :as redis]))
;; 连接redis
(def db (redis/init))
(println (redis/ping db))
(println (redis/set db "foo" "BAR"))
(println (redis/get db "foo"))
(println)  ;; 空一行
(println (redis/set db "blog" "http://blog.ithomer.net"))
(println (redis/get db "blog"))

　　运行结果：
　　PONG
OK
BAR

OK
http://blog.ithomer.net


　　redis 数据内容：

　　

　　

　　Carmine 示例

　　Carmine, a Clojure Redis client

　　project.clj 添加依赖：[com.taoensso/carmine "2.4.0"]
　　

　　示例代码：

(ns myClojure.redis
(:require [taoensso.carmine :as car]
[taoensso.carmine.message-queue :as carmine-mq])
(:gen-class :main true))
(def pool         (car/make-conn-pool)) ; See docstring for additional options
(def spec-server1 (car/make-conn-spec)) ; ''
(defmacro wcar [& body] `(car/with-conn pool spec-server1 ~@body))
(defn -main [& args]
(println "rd01 run!")
;;
(wcar (car/ping)
(car/set "foo" "hello ithomer")
(car/get "foo"))
)
(-main)


运行结果：
rd01 run!　　["PONG" "OK" "hello ithomer"]

　　

　　

　　参考推荐：
　　Carmine, a Clojure Redis client（github）
　　clj-redis（github）

　　clojure操作redis