寫zip文件Clojure中

Question

提交我有一個方法荏苒：

(defn zip-project [project-id notebooks files] 
    (with-open [out (ByteArrayOutputStream.) 
       zip (ZipOutputStream. out)] 
    (doseq [nb notebooks] 
     (.putNextEntry zip (ZipEntry. (str "Notebooks/" (:notebook/name nb) ".bkr"))) 
     (let [nb-json (:notebook/contents nb) 
      bytes (.getBytes nb-json)] 
     (.write zip bytes)) 
     (.closeEntry zip)) 
    (doseq [{:keys [name content]} files] 
     (.putNextEntry zip (ZipEntry. (str "Files/" name))) 
     (io/copy content zip) 
     (.closeEntry zip)) 
    (.finish zip) 
    (.toByteArray out))) 

後我做一個拉鍊我想把它保存到文件類似/tmp/sample/sample.zip，但我似乎無法做到。這裏是我在做什麼：

(defn create-file! [path zip] 
    (let [f (io/file path)] 
    (io/make-parents f) 
    (io/copy zip f) 
    true)) 

的問題是，當我從終端運行unzip它說，zip文件是空的，如果我解壓縮使用存檔工具是它cpgz擴展提取。

我在這裏做錯了什麼？

Answer 1

你基本上需要4個東西

1. 進口一切（通常你會使用(ns ...)，但你可以在REPL

   (import 'java.io.FileOutputStream) 
   (import 'java.io.BufferedOutputStream) 
   (import 'java.io.ZipOutputStream) 
   (import 'java.util.zip.ZipOutputStream) 
   (import 'java.util.zip.ZipEntry) 
   

2. 您需要一種方法來初始化流運行此。這可以用->宏很好地完成：

   (defn zip-stream 
       "Opens a ZipOutputStream over the given file (as a string)" 
       [file] 
       (-> (FileOutputStream. file) 
        BufferedOutputStream. 
        ZipOutputStream.)) 
   

3. 您需要一種方式來創建在ZipOutputStream

   (defn create-zip-entry 
       "Create a zip entry with the given name. That will be the name of the file inside the zipped file." 
       [stream entry-name] 
       (.putNextEntry stream (ZipEntry. entry-name))) 
   

4. /關閉條目最後，你需要一種方式來寫你的內容。

   (defn write-to-zip 
       "Writes a string to a zip stream as created by zip-stream" 
       [stream str] 
       (.write stream (.getBytes str))) 
   

5. 全部放在一起：

   (with-open [stream (zip-stream "coolio.zip")] 
       (create-zip-entry stream "foo1.txt") 
       (write-to-zip stream "Hello Foo1") 
       (.closeEntry stream) ;; don't forget to close entries 
       (create-zip-entry stream "foo2.txt") 
       (write-to-zip stream "Hello Foo 2") 
       (.closeEntry stream)) 
   

6. 結果：