text - 在 clojure 中读取文件并忽略第一行？

Question

使用 this answer 中的代码, 我有

(defn repeat-image [n string]
  (println (apply str (repeat n string))))

(defn tile-image-across [x filename]
  (with-open [rdr (reader filename)]
    (doseq [line (line-seq rdr)]
      (repeat-image x line))))

...水平平铺 ascii 图像。现在，我怎么能“忽略”第一行呢？我这样做的原因是每个图像的第一行都有坐标(例如“20 63”)，而我不需要该行。我尝试了一些方法(保留索引、模式匹配)，但我的方法感觉做作。

Answer 1

假设您想像在 tile-image-across 中那样跳过文件的第一行并处理剩余的行，您可以简单地替换 (line-seq rdr ) 与

(next (line-seq rdr))

事实上，您可能应该考虑选择相关行和处理:

;; rename repeat-image to repeat-line

(defn read-image [rdr]
  (next (line-seq rdr)))

(defn repeat-image! [n lines]
  (doseq [line lines]
    (repeat-line n line)))

在 with-open 中使用:

(with-open [rdr ...]
  (repeat-image! (read-image rdr)))

如果您的文件包含多个图像并且您需要跳过每个图像的第一行，那么最好的方法是编写一个函数来将行的序列划分为图像的序列(如何完成取决于文件的格式)，然后将其映射到 (line-seq rdr) 和 (map next ...)) 到结果:

(->> (line-seq rdr)
     ;; should partition the above into a seq of seqs of lines, each
     ;; describing a single image:
     (partition-into-individual-image-descriptions)
     (map next))

注意。使用惰性 partition-into-individual-image-descriptions 这将产生惰性序列的惰性序列；您需要在 with-open 关闭阅读器之前使用它们。