clojure：将一个目录的内容复制到另一个目录

Question

听起来像一个简单的任务，也许它是。但是我刚刚采用这种方法 - 有没有更好的方法？

(require '[clojure.string :as string]) 

(defn mk-path [& args] 
    (string/join "/" args)) 

(defn move-contents-to-dir [dir1 dir2] 
    "Move all the contents of dir1 into dir2, which will be created if not existing." 
    (doseq [file (file-seq (io/file dir1))] 
    (let [base-removed (string/replace (str file) 
             (re-pattern (str "^" (str dir1))) 
             "") 
      new-path (mk-path dir2 base-removed)] 
     (io/make-parents new-path) 
     (when (not (.isDirectory file)) 
     (io/copy file (io/file new-path)))))) 

Answer 1

有一个名为FS方便的库，实现了一些助手，你可以使用： http://raynes.github.io/fs/me.raynes.fs.html#var-copy-dir

Answer 2

应，如果你使用的是Java 7或以上非常简单和快捷的

(ns hello-world.core 
    (:import [java.nio.file Files Paths SimpleFileVisitor StandardCopyOption FileVisitResult LinkOption CopyOption] 
      [java.nio.file.attribute FileAttribute])) 

(defn path [str-path] 
    (Paths/get str-path (into-array String []))) 

(defn copy-dir-visitor [from to] 
    (proxy [SimpleFileVisitor] [] 
    (preVisitDirectory [dir attrs] 
     (let [target (.resolve to (.relativize from dir))] 
     (if-not (Files/exists target (into-array LinkOption [])) 
      (Files/createDirectory target (into-array FileAttribute []))) 
     FileVisitResult/CONTINUE)) 
    (visitFile [file attrs] 
     (let [target (.resolve to (.relativize from file))] 
     (Files/copy file target (into-array CopyOption [StandardCopyOption/REPLACE_EXISTING]))) 
     FileVisitResult/CONTINUE))) 

(defn copy-dir! [from to] 
    (let [visitor (copy-dir-visitor from to)] 
    (Files/walkFileTree from visitor)))