java - 惯用的 Clojure 将资源从正在运行的 jar 复制到外部

Question

这似乎是一个经典问题，但我找不到任何关于它的“clojure 方式”。

因此，我在 resources/(leiningen 项目)中有一个 foo/目录。当 jar'd/uberjar'd 时，这个 foo/目录被放在 jar 的根目录下。由于 jar 中的文件在运行时可能在物理上不一致，因此您不能使用基本的复制功能递归地将目录复制到外部世界。

存在多个适用于 Java 世界的解决方案(例如 How to write a Java program which can extract a JAR file and store its data in specified directory (location)? 和 How to extract directory (and sub directories) from jar resource?)，但我没有找到适用于 Clojure 的任何现有解决方案。作为初学者(Clojure 和 Java)，我不确定如何将上述解决方案转换为 Clojure。逐行逐行从 Java 翻译成 Clojurish Java Interop 似乎并不正确。是否有一种“官方”的、clojure 惯用的方式来做到这一点？

请注意，我使用的是 Raynes 的 fs 实用程序库。似乎没有直接执行此操作的功能，但也许我可以使用一些元素来简化流程？ (除了明显的基本 io 糖)

Answer 1

我写了cpath-clj几个月前，它将按 URI 列出类路径上的资源。然后您可以尝试以下操作:

(require '[cpath-clj.core :as cp]
         '[clojure.java.io :as io])

(doseq [[path uris] (cp/resources (io/resource "foo"))
        :let [uri (first uris)
              relative-path (subs path 1)
              output-file (io/file output-directory relative-path)]]
  (with-open [in (io/input-stream uri)]
    (io/copy in output-file)))

由于编写库时并未考虑到此用例，因此存在一些杂耍:

• (cp/resources (io/resource "foo")) 将为您提供您的 foo 目录的内容 - 如果您有只使用 (cp/resources "foo") 类路径上的所有此类目录都会被找到，
• 理论上，类路径上可以有多个具有相同路径的文件，这就是该函数返回多个uris的原因；在我们的例子中，只有第一个感兴趣。
• path 始终以斜杠开头，因此要获得相对路径，我们必须将其删除。

也许这对你有帮助。