我对两件事感到困惑。一，错误消息本身。第二，这段代码启动了如此多的线程。我本以为它会启动 2 或 3 个线程来响应单个请求，但是当我在本地主机上运行它并将浏览器指向它（仅一次）时，它会启动 40 个线程。诚然，我使用的是 Chrome，它在后台发送 3 个请求，原因有多种，谷歌将其辩护为“功能”（速度）。
这个错误是什么意思？
Exception in thread "Thread-39" java.lang.IllegalArgumentException: Key must be integer
at clojure.lang.APersistentVector.invoke(APersistentVector.java:250)
at serve_pages_from_memory.core$listen_and_respond$fn__51.invoke(core.clj:30)
at clojure.lang.AFn.run(AFn.java:24)
at java.lang.Thread.run(Thread.java:680)
我看到之前 StackOverflow 上也讨论过类似的错误，但我不明白它们如何与我的问题联系起来：
clojure 按键过滤映射 https://stackoverflow.com/questions/7207495/clojure-filter-map-by-keys
我正在尝试构建一个提供页面服务的简单应用程序。我这样做主要是为了测试我自己对 Clojure 的了解。这是大部分代码：
(defn start-thread [f]
(doto (new Thread f) (.start)))
(defn serve-page [wrt]
(let [content-length (count page-string)]
(. wrt println "HTTP/1.1 200 OK")
(. wrt println "Content-Type: text/html; charset=UTF-8")
(. wrt println "Connection: Keep-Alive")
(. wrt println (str "Content-Length: " content-length))
(. wrt print "\r\n")
(. wrt print page-string)
(. wrt flush)
(. wrt close)))
(defn listen-and-respond [ss]
(let [client (. ss accept)]
(start-thread #([client]
(let [wrt (new PrintWriter (new BufferedWriter (new OutputStreamWriter (. client (getOutputStream)))))]
(serve-page wrt))))))
(defn create-server [port]
(let [ss (new ServerSocket port)]
(start-thread #(when-not (. ss (isClosed))
(try (listen-and-respond ss)
(catch SocketException e))
(recur)))
ss))
(defn -main [& args]
(println "Server is starting")
(let [port (Integer/parseInt (first args))]
(create-server port)))
该错误似乎是在抱怨这一行：
(serve-page wrt))))))
但这是一个函数名和一个 PrintWriter 对象。错误消息表明这是关于带有键的地图的问题。该错误没有任何意义。
有什么建议么？
#([client]
(let [wrt (new PrintWriter (new BufferedWriter (new OutputStreamWriter (. client (getOutputStream)))))]
(serve-page wrt)))
纯属无稽之谈。如果您想要带有命名参数的 lambda，请使用fn form:
(fn [client]
(let [wrt (new PrintWriter (new BufferedWriter (new OutputStreamWriter (. client (getOutputStream)))))]
(serve-page wrt)))
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
