[英]Get key of PersistentArrayMap in clojure
我的问题可能有点容易回答,但是我才刚刚开始学习Clojure,我不知道该怎么做。
我有一个已读取和解析的JSON文件。 现在,我必须获取此JSON的每个元素,然后根据类型进行处理。 例如,我有JSON:
{
"foo": {
"id": 1,
"name": "foo1"
},
"bar": {
"id": 1,
"name": "bar1"
},
"foo": {
"id": 2,
"name": "foo2"
},
"bar": {
"id": 2,
"name": "bar2"
}
}
因此,我想创建一个对JSON的每个元素进行迭代的函数,然后为JSON的每个元素类型调用具有多个声明的另一个函数。
问题是我不知道如何获取JSON元素类型...有人可以帮我吗?
通过将其视为Clojure序列,可以获取映射的所有键值对。 然后,它表现为一个包含两个元素的向量的序列,更精确地说是一个MapEntry
元素的序列。 当您first
在MapEntry
上致电时,您将获得密钥。
因此, (first (seq {:a 1}))
返回[:a 1]
而(first [:a 1])
返回:a
。 在此示例中,不需要对seq
进行调用,但这仅是为了使示例更明确。
然后,您可以编写一个case
表达式以根据键执行操作。 为了使其更具扩展性,您可以使用多种方法。
(def json-str "{\n \"foo\": {\n \"id\": 1,\n \"name\": \"foo1\"\n },\n \"bar\": {\n \"id\": 1,\n \"name\": \"bar1\"\n },\n \"foo\": {\n \"id\": 2,\n \"name\": \"foo2\"\n },\n \"bar\": {\n \"id\": 2,\n \"name\": \"bar2\"\n }\n}")
(def parsed (cheshire.core/parse-string json-str true))
;; {:foo {:id 2, :name "foo2"}, :bar {:id 2, :name "bar2"}}
;; handle with case:
(defn handle-data
[data]
(doseq [[k v] data]
(case k
:foo (println "this is a foo!" v)
:bar (println "this is a bar!" v)
(throw (ex-info (str "Did not recognize key "
key)
{:key k
:map v})))))
;; handle with multimethods:
(defmulti do-thing-depending-on-key first)
(defmethod do-thing-depending-on-key :foo [[k v]]
(println "this is a foo!" v))
(defmethod do-thing-depending-on-key :bar [[k v]]
(println "this is a bar!" k))
(defmethod do-thing-depending-on-key :default [[k v]]
(throw (ex-info (str "Did not recognize key "
key)
{:key k
:map v})))
(run! do-thing-depending-on-key parsed)
;; this is a foo! {:id 2, :name foo2}
;; this is a bar! {:id 2, :name bar2}
;; => nil
(run! do-thing-depending-on-key {:unknown {:id 3 :name "Unknown"}})
;; =>
;; clojure.lang.ExceptionInfo:
;; Did not recognize key :unknown {:key :unknown, :map {:id 3, :name "Unknown"}}
对于这种简单的事情,多方法可能会显得过大。 我只是用cond
:
(ns tst.demo.core
(:require
[cheshire.core :as cheshire]
[clojure.java.io :as io] ))
(let [json-str (slurp (io/resource "data.json"))
edn-data (cheshire/parse-string json-str true) ; need `true` to emit keywords
]
(doseq [[type id-name-map] edn-data]
(cond
(= type :foo) (println :foo-proc id-name-map)
(= type :bar) (println :bar-proc id-name-map)
:else (println :other-proc id-name-map) )))
结果:
:foo-proc {:id 2, :name foo2}
:bar-proc {:id 2, :name bar2}
在project.clj
需要以下内容:
:dependencies [
[cheshire "5.8.0"]
....
以及您的数据在resources/data.json
:
~/expr/demo > cat resources/data.json
{
"foo": {
"id": 1,
"name": "foo1"
},
"bar": {
"id": 1,
"name": "bar1"
}, ....
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.