7

私はClojureで遊び始めたばかりで、最初に試したいのは、ここにあるSuart Hallowayの例のように、構造体のリストを保存して取得することです。

次のように属性文字列にスペースを含まない構造体インスタンスを使用すると、構造体のハッシュのスピット/スラップは正常に機能します。

(struct customer "Apple" "InfiniteLoop")

しかし、私がこれを使用する場合：

(struct customer "Apple" "Infinite Loop 1")

エラーが発生します：

Exception in thread "main" clojure.lang.LispReader$ReaderException: java.lang.ArrayIndexOutOfBoundsException: 7 (test-storing.clj:19)
    at clojure.lang.Compiler$InvokeExpr.eval(Compiler.java:2719)
    at clojure.lang.Compiler$DefExpr.eval(Compiler.java:298)
    at clojure.lang.Compiler.eval(Compiler.java:4537)
    at clojure.lang.Compiler.load(Compiler.java:4857)
    at clojure.lang.Compiler.loadFile(Compiler.java:4824)
    at clojure.main$load_script__5833.invoke(main.clj:206)
    at clojure.main$init_opt__5836.invoke(main.clj:211)
    at clojure.main$initialize__5846.invoke(main.clj:239)
    at clojure.main$null_opt__5868.invoke(main.clj:264)
    at clojure.main$legacy_script__5883.invoke(main.clj:295)
    at clojure.lang.Var.invoke(Var.java:346)
    at clojure.main.legacy_script(main.java:34)
    at clojure.lang.Script.main(Script.java:20)
Caused by: clojure.lang.LispReader$ReaderException: java.lang.ArrayIndexOutOfBoundsException: 7
    at clojure.lang.LispReader.read(LispReader.java:180)
    at clojure.core$read__4168.invoke(core.clj:2083)
    at clojure.core$read__4168.invoke(core.clj:2081)
    at clojure.core$read__4168.invoke(core.clj:2079)
    at clojure.core$read__4168.invoke(core.clj:2077)
    at chap_03$load_db__54.invoke(chap_03.clj:71)
    at clojure.lang.AFn.applyToHelper(AFn.java:173)
    at clojure.lang.AFn.applyTo(AFn.java:164)
    at clojure.lang.Compiler$InvokeExpr.eval(Compiler.java:2714)
    ... 12 more
Caused by: java.lang.ArrayIndexOutOfBoundsException: 7
    at clojure.lang.PersistentArrayMap$Seq.first(PersistentArrayMap.java:216)
    at clojure.lang.APersistentMap.hashCode(APersistentMap.java:101)
    at clojure.lang.Util.hash(Util.java:55)
    at clojure.lang.PersistentHashMap.entryAt(PersistentHashMap.java:134)
    at clojure.lang.PersistentHashMap.containsKey(PersistentHashMap.java:130)
    at clojure.lang.APersistentSet.contains(APersistentSet.java:33)
    at clojure.lang.PersistentHashSet.cons(PersistentHashSet.java:59)
    at clojure.lang.PersistentHashSet.create(PersistentHashSet.java:34)
    at clojure.lang.LispReader$SetReader.invoke(LispReader.java:974)
    at clojure.lang.LispReader$DispatchReader.invoke(LispReader.java:540)
    at clojure.lang.LispReader.read(LispReader.java:145)
    ... 20 more

構造体のフィールドの量によっては、エラーではなく、文字列の一部を属性名として取得する場合もあります。例：ループ1

私は次のようなストア関数を使用します：

(defn store-customer-db [customer-db filename]
  (spit filename (with-out-str (print customer-db))))

そして、このような読み取り関数：

(defn load-db [filename]
  (with-in-str (slurp filename)(read)))

spitの出力ファイルから、slurpの問題のように見える文字列に二重引用符が印刷されていないことがわかります。これに対する正しい解決策は何でしょうか？

私のClojureのバージョンは1.0で、投稿は数週間前のスナップショットです。

4

2 に答える 2

10

printprintln人間が読める形式の出力を目的としています。後で再度読み込むことを意図したものを印刷したい場合は、prまたはを使用しますprn。

user> (read-string (with-out-str (prn {"Apple" "Infinite Loop"})))
{"Apple" "Infinite Loop"}

一方：

user> (read-string (with-out-str (print {"Apple" "Infinite Loop"})))
java.lang.ArrayIndexOutOfBoundsException: 3 (NO_SOURCE_FILE:0)

このコードを実行しようとしています:

(read-string "{Apple Infinite Loop}")

キー/値の数が奇数です。個々のハッシュ キー/値を引用符で囲んでいないことに注意してください。この読み取りが機能したとしても (つまり、偶然に偶数のパラメーターを指定した場合)、読み取りは文字列でいっぱいのハッシュマップではなく、シンボルになります。したがって、出力したもの以外のものが返されます。

user> (map class (keys (read-string (with-out-str (print {"foo bar" "baz quux"})))))
(clojure.lang.Symbol clojure.lang.Symbol)
于 2009-05-29T19:23:50.343 に答える
2

たとえば、次のように言います。

(def hashed-hobbits {:bilbo "Takes after his Mother's family" :frodo "ring bearer"})

あなただけが必要です：

(spit "hobbitses.txt" hashed-hobbits)

そしてそれを読み返すには：

(def there-and-back-again (read-string (slurp "hobbitses.txt")))

spit/slurp はすべてを文字列にラップしますが、slurp で read-string を使用すると、文字列が解釈されて clojure コード/データに戻されます。トローリッシュなデータ構造でも動作します!

于 2013-01-09T03:14:57.293 に答える