clojure - 在 Clojure 中检测非空 STDIN

Question

如何在 Clojure 中以非阻塞方式读取非空标准输入 (*in*)？

起初，我想用 java.io.Reader#ready() 打电话方法可以，但是即使提供了标准输入，(.ready *in*) 也会返回 false。

Answer 1

这是您要找的吗？ InputStream .available

(defn -main [& args]
  (if (> (.available System/in) 0)
    (println "STDIN: " (slurp *in*))
    (println "No Input")))

---

$ echo "hello" | lein run
STDIN:  hello

$ lein run
No Input

---

更新:.available 似乎确实是一个竞争条件检查 STDIN。 n 替代方法是为 STDIN 设置一个固定的超时时间，否则假设没有数据来自 STDIN

这是一个使用 core.async 尝试从 STDIN 读取第一个字节并将其附加到 STDIN 或超时的其余部分的示例。

(ns stdin.core
  (:require
   [clojure.core.async :as async :refer [go >! timeout chan alt!!]])
  (:gen-class))

(defn -main [& args]
  (let [c (chan)]
    (go (>! c (.read *in*)))
    (if-let [ch (alt!! (timeout 500) nil
                       c ([ch] (if-not (< ch 0) ch)))]
      (do
        (.unread *in* ch)
        (println (slurp *in*)))

      (println "No STDIN"))))