如何使这段代码更加通用/干燥？

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`错误是由于在调用链中遗漏了解引用。

我将函数移到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

是的：`无法将 <nil> 打开为 Reader.` 我也尝试了简单粗暴的方法，同样的错误。

---

我认为这个错误可能是由调用链中遗漏的解引用引起的。