Also, have a look at http://richhickey.github.com/clojure-contrib/shell-api.html
/Patrik On Mar 19, 7:00 pm, Michael Gardner <gardne...@gmail.com> wrote: > On Mar 19, 2010, at 6:07 AM, TimDaly wrote: > > > (defn cmdresult [cmdstr] > > (let [args (into [] (seq (.split cmdstr " ")))] > > (BufferedReader. > > (InputStreamReader. > > (. (. (. Runtime (getRuntime)) (exec args)) > > (getInputStream)))))) > > Why do (into [])? .exec expects a String[], exactly what .split gives you. > > I wrote something similar recently (included below, in case you're > interested). You could easily wrap it with a .split to get similar > functionality, though personally I prefer passing the args as a list because > that way you can deal with paths with spaces in them. > > -Michael > > (defn cmd [command & args] > "Runs command with args and returns its stdout, stderr, and exit status." > (let [process (.start (ProcessBuilder. (into-array (cons command args))))] > (.waitFor process) > (hash-map > :output > (line-seq > (java.io.BufferedReader. > (java.io.InputStreamReader. > (.getInputStream process)))) > :error > (line-seq > (java.io.BufferedReader. > (java.io.InputStreamReader. > (.getErrorStream process)))) > :status > (.exitValue process)))) > > (defn do-cmd [command & args] > "Runs command with args and returns its stdout as a seq of lines. Throws > exception on failure." > (let [command (apply cmd command args)] > (if (zero? (:status command)) > (:output command) > (throw > (Exception. > (str "Command failed: " > (apply str > (interpose "\n" > (:error command))))))))) -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en To unsubscribe from this group, send email to clojure+unsubscribegooglegroups.com or reply to this email with the words "REMOVE ME" as the subject.
