1

我在我的服务器上使用码头“7.6.8.v20121106”作为https://github.com/ring-clojure/ring/tree/master/ring-jetty-adapter的一部分。

我正在使用带有以下代码的http://http-kit.org/拨打电话。本质上，我正在进行服务器调用，但忽略了响应。我发现在那之后所有服务器线程都被阻塞/死锁。这似乎是一种非常简单的方法来关闭服务器并想了解这里发生了什么。

来自客户端的代码是：

(require '[org.httpkit.client :as hk-client])

 (defn hget [id]
   (hk-client/get (str "http://localhost:5000/v1/pubapis/auth/ping?ping=" id)))

(doall (map hget (take 100 (range))))) ; Gives problem
(doall (map deref (map hget (take 100 (range)))))) ; Doesn't give problem

线程状态 线程阻塞在

sun.nio.cs.StreamEncoder.write(StreamEncoder.java:118)

并陷入僵局

java.io.PrintStream.write(PrintStream.java:479)

如果有人可以帮助解决这里发生的事情，我将不胜感激。

4

1 回答 1

1

终于找到问题所在了。花了很多时间挖掘并从一个示例项目开始找到它。当我开始学习 clojure 并从某处复制以下内容以进行日志记录时：

(defn log [msg & vals]
  (let [line (apply format msg vals)]
    (locking System/out (println line))))

在某些情况下，那里的线路锁定会导致死锁。对并发了解不够，无法解决这个问题。将为此创建一个单独的问题。

删除此行可以解决问题。

于 2013-08-10T03:40:20.967 回答