regex - 如何在 Clojure 中使用正则表达式过滤目录列表

Question

给定正则表达式和目录路径，如何获取路径与正则表达式匹配的文件序列？

也就是说，我想要

(require '[clojure.java.io :as io])

(regex-file-seq #"\.ssh/.*\.pub$" (io/file "/home")) =>
(#<File /home/x/.ssh/iaf_dsa.pub> #<File ....>)

我花了几分钟才将各个部分组合在一起，所以我想我应该将其发布。

Answer 1

(defn regex-file-seq
  "Lazily filter a directory based on a regex."
  [re dir]
  (filter #(re-find re (.getPath %)) (file-seq dir)))