如何在Clojure中读取stdin中的所有行

Question

我在Clojure 写了一个Brainf***翻译.我想在使用stdin时传递一个程序.但是,我仍然需要稍后从stdin读取用户输入.

目前,我这样做:

$ cat sample_programs/hello_world.bf | lein trampoline run

我的Clojure代码只读取第一行,使用read-line:

(defn -main
  "Read a BF program from stdin and evaluate it."
  []
  ;; FIXME: only reads the first line from stdin
  (eval-program (read-line)))

如何阅读我用过的文件中的所有行？*in*似乎是一个实例java.io.Reader,但它只提供.read(一个字符),.readLine(一行)和read(char[] cbuf, int off, int len)(似乎非常低级别).

Answer 1

将所有输入数据作为单个字符串读取非常简单:

(defn -main []
  (let [in (slurp *in*)]
    (println in)))

如果您的文件可以适合可用内存,这可以正常工作; 懒惰地阅读大文件,看到这个答案.

Answer 2

你可以从*in*这样得到一个懒的seq行:

(take-while identity (repeatedly #(.readLine *in*)))

或这个:

(line-seq (java.io.BufferedReader. *in*))

这在功能上是相同的.