使用doseq读取文件直到Clojure中的某一行

Question

这在其他语言中通常是微不足道的，但我在Clojure中找不到这样的例子。

我可以使用以下方式打印整个文件：

(with-open [rdr (io/reader "file")]
          (doseq [line (line-seq rdr) :while (< count(line) 10)]
            (println line)))

但是如何让它停在第5行？

感谢。

Answer 1

你可以试试这个：

(println
 (with-open [rdr (clojure.java.io/reader "file")]
   (let [ls (line-seq rdr)]
     (doall (take 5 ls)))))

这将打印指定文件的前5行。

如果您需要跳过一些不满足条件的行，您可以添加filter。以下代码将打印长度小于10的前五行。

(println
 (with-open [rdr (clojure.java.io/reader "file")]
   (let [ls (line-seq rdr)]
     (->> ls
          (filter #(< (count %) 10))
          (take 5)
          (doall)))))

由于filter和take会返回延迟序列，因此应在with-open形式内实现。在with-open表单之外，序列无法实现并导致异常。

println函数也使序列实现，你可以像这样修改代码：

(with-open [rdr (clojure.java.io/reader "data/base_exp.txt")]
  (let [ls (line-seq rdr)]
    (->> ls
         (filter #(> (count %) 10))
         (take 5)
         (println))))

Answer 2

只需使用take来限制行数：

替换

   (doseq [line (line-seq rdr) ;; ...

与

   (doseq [line (take 5 (line-seq rdr)) ;; ...