Clojure读取文本文件转列表遇EOF错误，求排查修复

1. 触发"EOF while reading"的直接原因 #

你的代码最外层多了一对冗余括号：

((defn -main [] 
  ...
))

Clojure中(defn ...)是定义函数的特殊语法，外层套括号会被解释为调用这个函数定义的结果，但defn返回的是函数符号，并非可直接执行的无参函数，这会直接触发语法解析的EOF错误。

修复：去掉外层多余括号，调整为：

(defn -main [] 
  (println "Enter an option: \n")

  (let [choice (read-line)]
    
    (cond (= choice "1") 
          (let [cust-contents (slurp "file.txt")
                nums-as-strings (clojure.string/split cust-contents #"|")
                numbers (map read-string nums-as-strings)]
              (print numbers)
          ) 
    )
  )
)

2. 字符串分割的正则错误 #

clojure.string/split的第二个参数是正则表达式，|是正则元字符（表示逻辑或），直接写#"|"会把每一个字符单独分割，完全不符合按竖线拆分字段的需求。

修复：对竖线进行转义，改为#"\|"，表示匹配字面量的|符号。

3. 逻辑错误：错误使用read-string #

你试图把所有分割后的字符串用read-string转换，但拆分结果包含名字、地址等非Clojure可解析数据（比如"John Smith"），直接调用read-string会抛出异常。正确逻辑应该是先按行分割文件内容，再对每行按竖线拆分字段。

完整修复代码 #

(require '[clojure.string :as str])

(defn -main [] 
  (println "Enter an option: \n")

  (let [choice (read-line)]
    
    (cond (= choice "1") 
          (let [cust-contents (slurp "file.txt")
                ;; 按行分割并过滤空行
                lines (remove str/blank? (str/split cust-contents #"\n"))
                ;; 每行按|拆分得到用户字段列表
                customers (map #(str/split % #"\|") lines)]
            (doseq [cust customers]
              (println cust))
          ) 
    )
  )
)

(-main)

运行效果 #

输入1后，会输出每个用户的字段列表：

["1" "John Smith" "123 Here Street" "456-4567 "]
["2" "Sue Jones" "43 Rose Court Street" "345-7867 "]
["3" "Fan Yuhong" "165 Happy Lane" "345-4533"]

内容的提问来源于stack exchange，提问作者giotto1