Question

这是我的代码：

(ns cowl.server
  (:use compojure.core)
  (:require [ring.adapter.jetty :as jetty]
            [ring.middleware.params :as params]
            [ring.middleware.json :refer [wrap-json-response]]
            [ring.util.response :refer [response]]
            [clojure.data.json :as json]
            [cowl.db :as db]))

(defroutes main-routes
  (POST "/api/news/as-read" { body :body }
    (str (json/read-str (slurp body))))))

(def app
  (-> main-routes
      wrap-json-response))

(defn serve []
  (jetty/run-jetty app {:port 3000}))

如果我发布此JSON：{ "name": "demas" }我会{"name" "demas"}。但这不是Clojure地图。

我需要像(:name (json/read-str (slurp body)))这样的东西。我怎么能得到它？

Answer 1

您可以使用ring.middleware.json/wrap-json-body而不是自己处理正文JSON解析。只需修改您的中间件设置：

(def app
  (-> main-routes
      wrap-json-response
      (wrap-json-body {:keywords? true})))

并且您的请求:body将成为JSON解析为Clojure数据。

Answer 2

您可能希望使用keywordize-keys功能：

http://clojuredocs.org/clojure.walk/keywordize-keys

(ns xyz.core
  (:require [clojure.walk :as walk]))

(walk/keywordize-keys {"a" 1 "b" 2})
;;=> {:a 1 :b 2}

您可能还会发现Cheshire lib是在Clojure中处理JSON的最佳方式：https://github.com/dakrone/cheshire#decoding

;; parse some json
(parse-string "{\"foo\":\"bar\"}")
;; => {"foo" "bar"}

;; parse some json and get keywords back
(parse-string "{\"foo\":\"bar\"}" true)  ; true -> want keyword keys
;; => {:foo "bar"}

;; parse some json and munge keywords with a custom function
(parse-string "{\"foo\":\"bar\"}" (fn [k] (keyword (.toUpperCase k))))
;; => {:FOO "bar"}

Answer 3

你也可以使用：key-fn函数：

(json/read-str (return :body)
               :key-fn keyword)

执行此操作，您将把JSON解析为默认的地图语法。

从POST请求获取Clojure地图

3 个答案: