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功能，我怎麼會存儲這些元素融入一個DB？以及如果我已經在數據庫中不能存儲給定的元素組？ 如何打印，然後只打印解析函數找到的新組元素？

Answer 1

你可能想看看SQL Korma。

使用sql咖喱：

我怎麼會存儲這些元素融入一個DB？

(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 ...）調用來解決這個問題。

希望有所幫助。