clojure 中的简单数据库存储

Question

这是一个新手问题。我有一个解析网页并返回一系列 5 个元素的函数。然后我使用println 函数来查看它是否正常工作。

...
(defn select-first-index-page-elements [source element n]
    ((get-parsing-logic source "parsing-logic-index-page" element "final-touch-fn")
        (nth 
            (html/select 
                (fetch-first-page source)
                (get-parsing-logic source "parsing-logic-index-page" element "first-touch"))
            n)))

(defn parsing-source [source]
(loop [n 0]
    (when (< n (count-first-index-page-elements source "title"))
(println ; the group of elements:
    (select-first-index-page-elements source "date" n)
    " - "
    (select-first-index-page-elements source "title" n)
    " - "
    (select-first-index-page-elements source "url" n)
    "\n")
(recur (inc n)))))))

(parsing-source "events-directory-website")

现在，我如何将这些元素存储到数据库中，而不是 println 函数？如果它已经在数据库中，我如何不能存储给定的一组元素？ 我怎样才能只打印解析函数找到的新元素组？

Answer 1

您可能想查看SQL Korma。

使用 sql korma：

如何将这些元素存储到数据库中？

(insert my-elements
  (values [{:elements ("a" "b" "c")}]))

如果给定的一组元素已经在数据库中，我怎么不能存储它？

;; using some elements youre looking for
(if-not [is-in-db (select my-elements
                          (where {:elements the-elements-youre-looking-for}))]
  (insert my-elements
      (values [{:elements the-elements-youre-looking-for}])))

我怎样才能只打印解析函数找到的新元素组？ 您可以使用上述答案中的 (select ...) 调用来解决此问题。

希望对您有所帮助。