ClojureScript：如何访问（不仅仅是打印）HTTP GET 请求的结果

Question

我正在尝试使用 Clojure（服务器）和 ClojureScript（客户端）构建一个简单的客户端-服务器系统。

服务器端正常（浏览器控制台上一切都是绿色的，没有CORS问题等）；响应是纯文本（“真”或“假”）。在客户端，我基本上使用official cljs-http website中包含的功能

(defn get-request [str1 str2]
(go (let [response (<! (http/get "http://localhost:3000"
                                 {:query-params {"str1" str1
                                                 "str2" str2}}))]
  (prn response))))

在 REPL 上运行这个函数表明一切都很好，并且类似地图的东西从异步通道中出来

cljs.user=> (b/get-request "foo" "bar")
#object[cljs.core.async.impl.channels.ManyToManyChannel]         ;; the result
cljs.user=> {:status 200, :success true, :body "false", [...]}   ;; output of `prn`

我的问题是：我怎样才能真正从ManyToManyChannel“对象”中获得响应的正文？

• 为了测试，将函数的最后一个表达式更改为(prn (:body response)) 打印 "false" 但仍然返回ManyToManyChannel
• 将函数的最后一个表达式更改为 (:body response) 出乎意料地返回相同的结果而不是“false”。

我该如何继续？

Answer 1

您无法以同步方式访问async 操作的结果（例如go）。所以获得实际响应的唯一方法是在异步回调中。

在 REPL 中获取结果有点棘手。您可以将它存储在原子中，并在操作完成后从原子中访问它。

(def result-ref (atom nil))

(defn into-ref [chan]
  (go (reset! result-ref (<! chan))))

(into-ref
  (http/get "http://localhost:3000"
    {:query-params
     {"str1" str1
      "str2" str2}}))

@result-ref

当然，您只能在操作实际完成后才能访问结果。 REPL 对于异步操作有点棘手，但这个技巧可能会有所帮助。

Answer 2

今天是星期六早上，我很懒，所以我没有运行这个，但这应该可以：

(defn get-request [str1 str2]
  (go (<! (http/get "http://localhost:3000"
                    {:query-params {"str1" str1
                                    "str2" str2}}))))


(defn read-response [response-chan]
  (go (let [resp (<! response-chan)]
        (prn resp))))  ; <- the only place where you can "touch" resp!

(read-response (get-request "a" "b"))

go 块返回一个通道，该通道将接收您在请求响应中放入其中的结果（原始 go 块的返回形式）。

读取函数获取一个通道并从中读取，最后一种形式只是调用第二个函数，结果调用第一个。

请记住，渠道是一流的构造，您可以传递它们、与多个消费者共享它们等等。