Сериализация дезаписи Clojure ClassNotFoundException

• Не используйте def внутри определений функций. Когда вы используете def, вы создаете переменную в своем пространстве имен и, возможно, манипулируете ею как побочным эффектом при каждом вызове функции. Используйте let-блоки.

• Если вы хотите сохранить структуры данных Clojure в файле, используйте clojure.edn. Это безопасно (например, без вашего ведома никакие функции, определенные в файле, не будут вызываться), но позволяет включить пользовательские считыватели (подробнее см. ниже).

• Тип, определенный с помощью defrecord, может быть напечатан в (Clojure-reader-)удобочитаемом виде с использованием pr-str (спасибо @A. Webb за это замечание). В вашем примере я не понимаю, почему бы вам вообще не придерживаться хэш-карты, но если вам действительно нужна дезапись, вы можете преобразовать ее в удобочитаемую строку, прежде чем записывать ее в файл.

  (defrecord Doodh [id name])
  
  (defn output [filename obj]
    (spit filename (pr-str obj))
  
  (defn pull [filename]
    (with-in-str (slurp filename)
                 (read)))
  

  • This way of doing it has several disadvantages.
    • Using read makes your code vulnerable to function calls in the slurped files (like #=(java.lang.System/exit 0)).
    • Исключение будет вызвано, когда файл с именем файла будет пуст.
    • Наконец, ваш сохраненный файл станет несовместимым с вашим кодом, когда вы переместите объявление об отмене записи в другое пространство имен.
    • Всех трех недостатков можно избежать, используя edn-reader.

Использование пользовательского считывателя с EDN

1. Мы расширяем наш тип Doodh, реализуя метод toString интерфейса java.lang.Object:

   (defrecord Doodh [id name]
     Object
     (toString [this] (str "#Doodh" (into {} this))))
   

2. #P6#

   (spit "Doodh.edn" (map->Doodh {:id "134" :name "Berta"}))
   

   <блочная цитата> #P7#

3. Теперь, чтобы убедиться, что Doodh будет прочитан, мы вызываем clojure.edn/read-string с пользовательской функцией чтения:

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

4. Если вы прочитаете «Doodh.edn» с помощью нового извлечения, вы должны получить действительный Doodh. В РЕПЛ:

   (pull "Doodh.edn")
   => #user.Doodh{:id 134, :name "Berta"}