20 lines
551 B
Clojure
20 lines
551 B
Clojure
|
#!/usr/bin/env bb
|
||
|
|
|
||
|
|
(require '[clojure.java.io :as io])
|
||
|
|
(import '[java.lang ProcessBuilder$Redirect])
|
||
|
|
|
||
|
|
(defn grep [input pattern]
|
||
|
|
(let [proc (-> (ProcessBuilder. ["grep" pattern])
|
||
|
|
(.redirectOutput ProcessBuilder$Redirect/INHERIT)
|
||
|
|
(.redirectError ProcessBuilder$Redirect/INHERIT)
|
||
|
|
(.start))
|
||
|
|
proc-input (.getOutputStream proc)]
|
||
|
|
(with-open [w (io/writer proc-input)]
|
||
|
|
(binding [*out* w]
|
||
|
|
(print input)
|
||
|
|
(flush)))
|
||
|
|
(.waitFor proc)
|
||
|
|
nil))
|
||
|
|
|
||
|
|
(grep "hello\nbye\n" "bye")
|