如何使这段代码更通用/更简洁？

Question

我有几个请求处理器，它们都遵循类似的模式。

(defn handle-data-1
  [req]
  {:pre [(some? req)]}
  (try
    (let [start-date (parse-query-param (-> req :params :start-date))
          end-date (parse-query-param (-> req :params :end-date))
          data (db/fetch-data-1 start-date end-date)
          data-count (count data)]
      (log/debugf "data-count=%d start-date=%s end-date=%s" data-count start-date end-date)
      (if (pos? data-count)
        {:status 200
         :body data}
        {:status 404}))
    (catch Exception e
      (let [error-message (.getMessage e)]
        (log/errorf "%s" error-message)
        {:status 500 :body error-message}))))

(defn handle-data-2
  [req]
  {:pre [(some? req)]}
  (try
    (let [limit (Long/valueOf (parse-query-param (-> req :params :limit)))
          data (db/fetch-data-2 limit)
          data-count (count data)]
      (if (pos? data-count)
        {:status 200
         :body data}
        {:status 404}))
    (catch Exception e
      (let [error-message (.getMessage e)]
        (log/errorf "%s" error-message)
        {:status 500 :body error-message}))))

(defn handle-data-3
  [_]
  (try
    (let [data (db/fetch-data-3)
          data-count (count data)]
      (log/debugf "data-count=%d" data-count)
      (if (pos? data-count)
        {:status 200
         :body data}
        {:status 404}))
    (catch Exception e
      (let [error-message (.getMessage e)]
        (log/errorf "%s" error-message)
        {:status 500 :body error-message}))))

我正在尝试创建一个通用函数，它可以用在所有的处理器中。类似于

(defn try-query [f]
  {:pre [(some? f)]}
  (try
    (let [data (f) ;; <- need to invoke function and store results in data
          data-count (count data)]
      (if (pos? data-count)
        {:status 200
         :body data}
        {:status 404}))
    (catch Exception e
      (let [error-message (.getMessage e)]
        (log/errorf "%s" error-message)
        {:status 500 :body error-message}))))

(defn handle-data-1 [req]
  (let [start-date (parse-query-param (-> req :params :start-date))
        end-date (parse-query-param (-> req :params :end-date))]
    (log/debugf "start-date=%s end-date=%s" start-date end-date)
    (try-query (fn [] (db/fetch-data-1 start-date end-date))))) ;; 

此通用函数需要接受另一个函数（或闭包）作为参数，并且它可以是不同数量的参数。我希望这个通用函数可以调用传递进去的函数，并将其结果存储在一个变量中。

在Ruby中，我可以通过传递一个lambda给函数，然后在函数内部调用这个lambda来实现。我不确定如何在Clojure中实现这一点。

有主意吗？

Comments

现在它已经工作了。我相信原始的`Cannot open <nil> as a Reader`错误是由调用链中遗漏的deref引起的。

我将函数移动到let中以稍微整理一下

(defn handle-data-1 [req]
  (let [start-date (parse-query-param (-> req :params :start-date))
        end-date (parse-query-param (-> req :params :end-date))
        query-fn (fn [] (db/fetch-data-1 start-date end-date)]
    (log/debugf "start-date=%s end-date=%s" start-date end-date)
    (try-query query-fn))))

Answer 1

你在运行这段代码时看到错误了吗？没有上下文，很难知道。无论如何，只要在`try-query`中的参数`f`是一个函数，那么形式`(f)`将会调用它。

Comments

是的：`无法将 打开为 Reader。`我也尝试了简单直接的方法，同样的错误。

---

我认为这个错误是由于在调用链更高处遗漏了解引用导致的。