如何将Java字符串转换为EDN对象?

Question

在Clojure中，我正在使用柴郡(https://github.com/dakrone/cheshire(库的"生成字符串"函数将EDN转换为JSON。

如果我直接使用 Clojure 中的 EDN 数据调用它，它工作正常，即

(defn generate-json-string
(generate-string {:foo "bar" :baz {:eggplant [1 2 3]} :sesion nil} {:pretty true})
)
Output =>
{
"foo": "bar",
"baz": {
"eggplant": [1,2,3]
},
"sesion": null
}

但是如果我从 Java 调用上述函数并以 Java 字符串的形式将上述相同内容传递给它，它将不起作用

(defn generate-json-string [content]
(generate-string content {:pretty true})
)
Output => 
"{:foo "bar" :baz {:eggplant [1 2 3]} :session nil}"

我该如何解决这个问题？

Answer 1

下面显示了如何将数据读/写到 JSON 字符串或 EDN 字符串中。

请注意，JSON和EDN都是字符串序列化格式，尽管Clojure文字数据结构通常(草率地(被称为"EDN"的"EDN数据"，即使EDN在技术上意味着字符串表示。

另外，请注意，clojure.tools.reader.edn是将EDN字符串转换为Clojure数据结构的最佳(最安全(方法。

(ns tst.demo.core
(:use tupelo.core tupelo.test)
(:require
[clojure.tools.reader.edn :as edn]
[tupelo.core :as t]
[tupelo.string :as ts] ))
(def data
"A clojure data literal"
{:a "hello" :b {:c [1 2 3]}})
(dotest
(let [json-str  (t/edn->json data) ; shortcut to Cheshire
from-json (t/json->edn json-str) ; shortcut to Cheshire
edn-str   (pr-str data) ; convert Clojure data structure => EDN string
; Using clojure.tools.reader.edn is the newest & safest way to
; read in an EDN string => data structure
from-edn  (edn/read-string edn-str)]
; Convert all double-quotes to single-quotes for ease of comparison
; with string literal (no escapes needed)
(is= (ts/quotes->single json-str) "{'a':'hello','b':{'c':[1,2,3]}}")
(is= (ts/quotes->single edn-str)  "{:a 'hello', :b {:c [1 2 3]}}")
; If we don't convert to single quotes, we get a messier escaped
; string literals with escape chars ''
(is-nonblank= json-str "{"a":"hello","b":{"c":[1,2,3]}}")
(is-nonblank= edn-str   "{:a   "hello", :b   {:c    [1 2 3]}}")
; Converting either EDN or JSON string into clojure data yields the same result
(is= data
from-json
from-edn)))

Answer 2

我能够通过使用edn/read-string函数来解决这个问题。

(defn generate-json-string [content]
(generate-string (edn/read-string content) {:pretty true})
)