Question

我试图将我的一个记录序列化为人类可读的格式。虽然使用Java序列化器进行序列化工作正常但我正在尝试使用print-dup。我面临的问题是，在编写记录时，可以很好地读取记录结果clojure.lang.LispReader $ ReaderException：java.lang.ClassNotFoundException：common.dummy.Doodh。我搞乱了命名空间或什么？请注意，这不是Java序列化的问题。以下最简单的代码

(ns common.dummy)

   (defrecord Doodh [id name])

   (defn output [filename obj]
    (def trr(map->Doodh {:id "moooh" :name "Cows"}))
    (def my-string (binding [*print-dup* true] (pr-str trr)))
    (spit filename my-string)
   )

   (defn pull [filename]
     (def my-data (with-in-str (slurp filename) (read)))
     (println my-data)
   )

文本文件内容：

#common.dummy.Doodh["moooh", "Cows"]

Answer 1

不要在函数定义中使用def。当您使用def时，您在命名空间中创建一个var，并可能将其作为每个函数调用的副作用进行操作。使用let-blocks。
如果要将Clojure数据结构保存在文件中，请使用clojure.edn。它是安全的（例如，在您不知情的情况下，不会调用文件中定义的函数）但它允许启用自定义阅读器（请参阅下文）。
用defrecord定义的类型可以使用pr-str以（Clojure-reader-）可读方式打印（感谢@A.Web注意到）。在你的例子中，我不明白你为什么不首先坚持哈希映射，但如果你真的需要一个defrecord，你可以在将它写入文件之前将其转换为可读的字符串。 / p>
```
(defrecord Doodh [id name])

(defn output [filename obj]
  (spit filename (pr-str obj))

(defn pull [filename]
  (with-in-str (slurp filename)
               (read)))
```
- 这种做法有几个缺点。
  - 使用read会使您的代码容易受到slurped文件中的函数调用的攻击（例如#=(java.lang.System/exit 0)）。
  - 当filename的文件为空时，将抛出异常。
  - 最后，当您将defrecord声明移动到另一个命名空间时，您保存的文件将与您的代码不兼容。
  - 使用edn-reader可以避免这三个缺点。

使用带EDN的自定义阅读器

我们通过实现java.lang.Object接口的toString方法来扩展我们的Doodh类型：
```
(defrecord Doodh [id name]
  Object
  (toString [this] (str "#Doodh" (into {} this))))
```
因为spit使用str，我们现在可以省略输出函数，只需从e调用spit。 G。 REPL：
```
(spit "Doodh.edn" (map->Doodh {:id "134" :name "Berta"}))
```
Doodh.edn： #Doodh {：id 134，：name“Berta”}

现在为了确保回读Doodh，我们使用自定义阅读器功能调用clojure.edn/read-string：

(defn pull [filename]
  (->> (slurp filename)
       (clojure.edn/read-string {:readers {'Doodh map->Doodh}})))

如果您使用新拉动回读“Doodh.edn”，您应该会收到有效的Doodh。在REPL：
```
(pull "Doodh.edn")
=> #user.Doodh{:id 134, :name "Berta"}
```

Clojure defrecord序列化ClassNotFoundException

1 个答案: