Clojure 中的线程局部计数器

Question

我有一个网络应用程序，我希望能够跟踪请求（即线程）中调用给定函数的次数。

我知道可以使用 ref 以非线程本地方式执行此操作，但是我将如何在本地执行线程呢？

Answer 1

有用 称为线程本地。例如，您可以编写 (def counter (thread-local (atom 0)))。这将创建一个全局变量，当解引用时，将为每个线程生成一个新的原子。因此，您可以使用 @@counter 读取当前值，或使用 (swap!@counter inc) 递增它。当然，您也可以使用 @counter 获取原子本身，然后将其视为普通原子。

Answer 2

您可以使用动态全局变量，通过 binding 绑定到一个值，并结合特殊形式 set! 来更改其值。通过 binding 绑定的变量是线程本地的。每次为 with-counter 调用中调用的任何表单调用 my-fn 时，以下内容都会增加 *counter*：

(def ^{:dynamic true} *counter*)

(defmacro with-counter [& body]
  `(binding [*counter* 0]
     ~@body
     *counter*))

(defn my-fn []
  (set! *counter* (inc *counter*)))

要进行演示，请尝试：

(with-counter (doall (repeatedly 5 my-fn)))
;; ==> 5

有关详细信息，请参阅 < a href="http://clojure.org/vars#set" rel="nofollow">http://clojure.org/vars#set

Answer 3

您可以在参考中保留 ThreadLocal 的实例。每次您需要增加它时，只需读取值，增加它并设置回值。在请求开始时，您应该将本地线程初始化为 0，因为线程可能会被不同的请求重用。