jar - clojure:解压缩作为资源存储的zip文件

我一直在努力读取我的lein项目中资源目录的内容。我现在了解了(一段时间做错了之后)使用clojure.java.io/resource提取资源，因为当将文件系统打包为jar时，仅使用文件系统是行不通的:

> (require '[clojure.java.io :as io])
> (def zipzip (.openStream (io/resource "zip.zip")))

这将返回一个BufferedInputStream。我想要做的是获取此zip文件并将其解压缩到本地目录。我不能用它制作ZipFile，但是我可以制作一个ZipInputStream。不幸的是，尽管我可以从中获得ZipEntries，但是我需要一个ZipFile才能实际读取ZipEntry的内容。我可以做这个:

> (-> zipzip ZipInputStream. .getNextEntry .getName)

这将返回名称，但api文档中没有任何内容可以使用ZipEntry获得该ZipInputStream的实际内容!

如何将ZipInputStream中的内容写到本地目录中？ (将代码打包到 jar 中时也可以使用!)

最佳答案

获得下一个条目后，您可以简单地从ZipInputStream中读取。使用条目中的尺寸信息来读取内容。

user=> (import 'java.util.zip.ZipInputStream)
java.util.zip.ZipInputStream
user=> (def zs (ZipInputStream. (io/input-stream "foo.zip")))
#'user/zs
user=> (def ze (.getNextEntry zs))
#'user/ze
user=> (.getName ze)
"foo.txt"
user=> (.getSize ze)
21
user=> (let [bytes (byte-array 21)] (.read zs bytes 0 21) (String. bytes "UTF-8"))
"Das ist ein Test!\r\n\r\n"