Clojure执行Shell命令 - 转储postgres

Question

我正在尝试执行此代码：

(define dump-db []
 (. (Runtime/getRuntime) exec "pg_dump database-name | gzip -c > db-name.out.gz"))

但是没有创建db-name.out.gz文件。 其他命令如＆＃34; ls＆＃34;或者＆＃34;触摸foo.txt＆＃34;成功执行了。

任何帮助？

Answer 1

我现在使用此代码：

(defn foo [line]
(with-open [wrtr (writer "/tmp/test.txt" :append true)]
  (.write wrtr (str line "\n"))))

(->> (.. Runtime getRuntime (exec "pg_dump db-name") getInputStream)
     java.io.InputStreamReader.
     java.io.BufferedReader.
     line-seq
     (map foo))