在Clojure中访问POST Json

Question

编辑 - 如果您感兴趣，源代码在GitHub上。谢谢。

---

我有点困惑，不知道如何在Clojure中访问已发布到URL的JSON数据；我似乎无法使其正常工作。

这是我的路由：

(cc/POST "/add" 
request
(str ": " request))

我不确定在request的位置要放什么 - 我只是在网上看到一些博客并试图跟随，但无法使其工作。

这是我正在尝试发布的方式：（来自fiddler） 注：图片中请求头端口不同；这是一个错误，我尝试修改该数据以查看它说了什么，请忽略上面图片中的此部分。

在curl中，我只是这样做：

curl -X POST -H "Content-Type: application/json" -d '{"foo":"bar","baz":5}' 
     http://localhost:3005/add

看起来Clojure根本没有接收到我发布的JSON数据。

这是请求变量包含的内容：

: {:scheme :http, :query-params {}, :form-params {}, :request-method :post, 
   :query-string nil, :route-params {}, :content-type "\"application/json\"", 
   :uri "/event", :server-name "localhost", :params {}, 
   :headers {"user-agent" "Fiddler", "content-type" "\"application/json\"", 
          "content-length" "23", "host" "localhost:3005"}, 
   :content-length 23, :server-port 3005, :character-encoding nil, :body #}

正如您所看到的，所有的params都是空的...

我正在使用compojure和cheshire - 我可以将数据转换为json并在GET路由中很好地返回它们。我需要找出如何传递json并将其转换为clojure数据..

谢谢

- LocustHorde

---

发布的数据应该是 {"foo" : "bar", "baz" : 5} 而不是 '{"foo" : "bar", "baz" : 5}'。 - Ankur

@Ankur，尝试过了，没有任何改变。 - LocustHorde

Answer 1

那是因为:params被一个处理“表单编码”体的环中间件填充。

您可以使用ring-json将应用程序包装到另一个中间件中。它将解析JSON正文并相应地填充：params。(https://github.com/ring-clojure/ring-json)

- tomferon

---

嗨，我之前使用cheshire将响应转换为json，但是看到ring后，我完全删除了cheshire并用ring替换了它，因为在github上提到了这一点。现在什么都不起作用了，页面只返回0内容长度（以前的响应是json），甚至没有设置内容类型。是否有任何教程或其他地方可以从零开始解释这个问题？抱歉，我是一个绝对的初学者，目前无法很好地找到自己在clojure中的方向。 - LocustHorde

问题似乎是大多数博客都过时了，使用的是旧代码，不在与ring-json相同的命名空间中..例如：[ring.middleware.format-params :only [wrap-json-params]] 来自 http://stackoverflow.com/questions/13150297/accessing-posted-json-with-ring-format-params-middleware - LocustHorde

Answer 2

这里有一个例子可以实现你想要的功能。代码来自于这个项目。在README中，你会看到它支持的一些访问模式。代码有点乱，但应该可以说明如何实现。

(ns poky.protocol.http.jdbc.text
  (:require [poky.kv.core :as kv]
    (compojure [core :refer :all]
               [route :as route]
               [handler :as handler])
    [ring.util.response :refer [response not-found]]
    (ring.middleware [format-response :as format-response ]
                     [format-params :as format-params])
    [cheshire.core :as json]
    [ring.middleware.stacktrace :as trace]))

;
; curl -d"some data" -H'Content-Type: application/text' -v -X PUT http://localhost:8080/xxx
; curl -d'{"bla":"bar"}' -H'Content-Type: application/json' -v -X PUT http://localhost:8080/bla

(def valid-key-regex #"[\d\w-_.,]+")

; FIXME: this should be split- one fn for get, one for mget
(defn- wrap-get
  [kvstore ks params headers body]
  (response 
    (let [eks (clojure.string/split ks #",")
          nks (count eks)
          multi (> nks 1)
          ret (if multi (kv/mget* kvstore eks) (kv/get* kvstore ks))]
    (condp = (get headers "accept")
      "application/json" ret
      "text/plain" (if multi (throw (Exception. "Multi get unsupported with Accept: text/plain")) (get ret ks))
      ret))))



(defn- wrap-put
  [kvstore ks params headers body]
  (if (and 
        (= (get headers "content-type") "application/json")
        (get params (keyword ks) nil))
    (kv/set* kvstore ks (get params (keyword ks)))
    (kv/set* kvstore ks body))
  (response ""))

(defn api
  [kvstore]
  (let [api-routes
        (routes
          (GET ["/:ks" :ks valid-key-regex] {{:keys [ks] :as params} :params body :body headers :headers}
               (wrap-get kvstore ks params headers body))
          (PUT ["/:ks" :ks valid-key-regex] {{:keys [ks] :as params} :params 
                                             body :body body-params :body-params headers :headers} 
               (let [body (slurp body)
                     body (if (empty? body) body-params body)]
                 (wrap-put kvstore ks params headers body))))]

    (-> (handler/api api-routes)
        (format-params/wrap-format-params
          :predicate format-params/json-request?
          :decoder #(json/parse-string % true)
          :charset format-params/get-or-guess-charset)
        (format-response/wrap-format-response
          :predicate format-response/serializable?
          :encoders [(format-response/make-encoder json/encode "application/json")
                     (format-response/make-encoder identity "text/plain")]
          :charset "utf-8")
        trace/wrap-stacktrace)))

希望这有所帮助。

- Damon Snyder

Answer 3

关于之前的回答，现在只需要在处理程序中添加formats键和要由Ring处理的格式列表即可。

就像这样：

(def app (noir.util.middleware/app-handler 
           [your-routes]
           :formats [:json-kw]))

- Petr Mensik