file-io - 将 clojure 映射/数组写入文件并读回

Question

我需要将 clojure 映射保存到文件中，稍后再读回以处理它们。

这是我能想到的。有没有更好的方法来完成同样的事情？

user=> (def my-data (for [ a [ "Person1" "Person2" ]  b [ "Address1" "Address2"]  c   (range 10) ] {:name a :address b :index c} ))
#'user/my-data
user=> (count my-data)
40

user=> (defn write-data[xs] (with-open [wrtr (clojure.java.io/writer "my-data.txt") ]
              (doall (map #(.write wrtr (str % "\n")) xs))))
#'user/write-data

user=> (write-data my-data)

user=> (defn read-data[] (with-open [rdr (clojure.java.io/reader "my-data.txt") ]
            (doall (map #(load-string %) (line-seq rdr)))))
#'user/read-data

user=> (count (read-data))
40

Answer 1

从文件中读取单个表单是最容易的，因此我通常将数据放入向量中。我也更喜欢使用 pr 或者pr-str而不是 print 因为它可以保证产生可读的数据，

(def my-data [{:a "foo" :b [1 2 3]} "asdf" 42 #{1 2 3}]) 
(spit "/tmp/data.edn" (with-out-str (pr my-data)))
nil
(read-string (slurp "/tmp/data.edn"))
[{:a "foo", :b [1 2 3]} "asdf" 42 #{1 2 3}] 

与：

(spit "/tmp/data.edn" (with-out-str (print my-data)))
(read-string (slurp "/tmp/data.edn"))
[{:a foo, :b [1 2 3]} asdf 42 #{1 2 3}] 

请注意字符串“asdf”是如何作为符号读回的。

.toString也可以正常工作：

(spit "/tmp/data.edn" (.toString my-data)) 
(read-string (slurp "/tmp/data.edn"))
[{:a "foo", :b [1 2 3]} "asdf" 42 #{1 2 3}] 

Answer 2

是的 -用于写作spit和阅读。prn-strslurpread-string

user=> (def a [1 2 3 4])
#'user/a
user=> (prn-str a)
"[1 2 3 4]\n"
user=> (spit "stored-array.dat" (prn-str a))
nil

（在新的 REPL 会话中）

user=> (require 'clojure.edn)
nil
user=> (slurp "stored-array.dat")
"[1 2 3 4]\n"
user=> (clojure.edn/read-string (slurp "stored-array.dat"))
[1 2 3 4]

我在该示例中使用了矢量，但任何数据（例如地图）都应该同样有效。

请注意，在主要的 Clojure 语言中有一个读取字符串，但这被明确记录为对不受信任的数据不安全，因此最好使用来自 clojure.edn 的版本。

Answer 3

看看这个处理print-dup和序列化表单的问题。它更好地涵盖了每种方法所涉及的权衡和安全问题。