如何从哈希映射中加入值？

我通过JDBC获取了一些SQL表，我需要做另一个转换，然后我创建一个新表并插入值。如何从哈希映射中加入值？

我得到了这两个哈希地图：

章节：

(
{:chapter_uuid "b7984dde-50a1-4147-bfee-95bbd068e031", :l1_chapter_text 
120876M, :l2_chapter_text nil, :l3_chapter_text nil, :l4_chapter_text nil} 

{:chapter_uuid "23df4f27-534b-4cdb-81ed-dbdc8b9b140c", :l1_chapter_text 
120880M, :l2_chapter_text 120876M, :l3_chapter_text nil, :l4_chapter_text 
121621M} 
)

翻译：

(
{:translation_id 3258779M, :translation_text 120876M, :translation_language "cs", 
:translation_name "Vnější fasáda"} 

{:translation_id 3258780M, :translation_text 120876M, :translation_language "en", 
:translation_name "Exterior Signage"} 

{:translation_id 3258782M, :translation_text 120880M, :translation_language "cs", 
:translation_name "Čistá výloha"} 

{:translation_id 3258783M, :translation_text 121621M, :translation_language "cs", 
:translation_name "Vnější signalizace"} 

{:translation_id 3258784M, :translation_text 121621M, :translation_language "en", 
:translation_name "Pre-signalization"} 
)

这就是我需要得到：

哪里Chapters.lx_chapter_text = Tran slation.translation_text - >使用translation_name和insert替换Chapters.lx_chapter_text：语言值 - >确保每种语言都有其自己的散列映射！

(
{:chapter_uuid "b7984dde-50a1-4147-bfee-95bbd068e031", :l1_chapter_text 
"Vnější fasáda", :l2_chapter_text nil, :l3_chapter_text nil, :l4_chapter_text nil 
:language "cs"} 

{:chapter_uuid "b7984dde-50a1-4147-bfee-95bbd068e031", :l1_chapter_text 
"Exterior Signage", :l2_chapter_text nil, :l3_chapter_text nil, :l4_chapter_text nil 
:language "en"} 

{:chapter_uuid "23df4f27-534b-4cdb-81ed-dbdc8b9b140c", :l1_chapter_text 
"Čistá výloha", :l2_chapter_text "Vnější fasáda", :l3_chapter_text nil, :l4_chapter_text 
"Vnější signalizace" :language "cs"} 

{:chapter_uuid "23df4f27-534b-4cdb-81ed-dbdc8b9b140c", :l1_chapter_text 
120880M, :l2_chapter_text "Exterior Signage", :l3_chapter_text nil, :l4_chapter_text 
"Pre-signalization" :language "en"} 
)

这是迄今为止从来就如何得到：

但你可以看到这是不对的（坏嵌套）

你能告诉我该怎么做对？谢谢！

(defn test_table [] 
    (for [language (distinct(map #(:translation_language %) translation))] 
     (for [chapter chapters] 
      (for [text translation] 
      (cond 
      (and (= (:l1_chapter_text chapter) (:translation_text text)) (= (:translation_language text) language)) 
       (assoc chapter :l1_chapter_text (:translation_name text) :language (:translation_language text)) 
      (and (= (:l2_chapter_text chapter) (:translation_text text)) (= (:translation_language text) language)) 
       (assoc chapter :l2_chapter_text (:translation_name text) :language (:translation_language text)) 
      (and (= (:l3_chapter_text chapter) (:translation_text text)) (= (:translation_language text) language)) 
       (assoc chapter :l3_chapter_text (:translation_name text) :language (:translation_language text)) 
      (and (= (:l4_chapter_text chapter) (:translation_text text)) (= (:translation_language text) language)) 
       (assoc chapter :l4_chapter_text (:translation_name text) :language (:translation_language text)))))) 

(test-table) 

-> 
((({:chapter_uuid "b7984dde-50a1-4147-bfee-95bbd068e031", :l1_chapter_text "Vnější fasáda", 
:l2_chapter_text nil, :l3_chapter_text nil, :l4_chapter_text nil, :language "cs"} 
nil nil nil nil) 
({:chapter_uuid "23df4f27-534b-4cdb-81ed-dbdc8b9b140c", :l1_chapter_text 120880M, 
:l2_chapter_text "Vnější fasáda", :l3_chapter_text nil, :l4_chapter_text 121621M, :language "cs"} 
nil 
{:chapter_uuid "23df4f27-534b-4cdb-81ed-dbdc8b9b140c", :l1_chapter_text "Čistá výloha", 
:l2_chapter_text 120876M, :l3_chapter_text nil, :l4_chapter_text 121621M, :language "cs"} 
{:chapter_uuid "23df4f27-534b-4cdb-81ed-dbdc8b9b140c", :l1_chapter_text 120880M, 
:l2_chapter_text 120876M, :l3_chapter_text nil, :l4_chapter_text "Vnější signalizace", :language "cs"} 
nil)) 
((nil 
{:chapter_uuid "b7984dde-50a1-4147-bfee-95bbd068e031", :l1_chapter_text "Exterior Signage", 
:l2_chapter_text nil, :l3_chapter_text nil, :l4_chapter_text nil, :language "en"} 
nil nil nil) 
(nil 
{:chapter_uuid "23df4f27-534b-4cdb-81ed-dbdc8b9b140c", :l1_chapter_text 120880M, 
:l2_chapter_text "Exterior Signage", :l3_chapter_text nil, :l4_chapter_text 121621M, :language "en"} 
nil nil 
{:chapter_uuid "23df4f27-534b-4cdb-81ed-dbdc8b9b140c", :l1_chapter_text 120880M, 
:l2_chapter_text 120876M, :l3_chapter_text nil, :l4_chapter_text "Pre-signalization", :language "en"})))

来源

2017-08-14 Akiz

你想如何连接数值？根据什么？如果你有{：a 1}和{：a 2}什么是'a'将会是什么？ –

对不起，我不明白你的问题。有：l * _chapter_text，可以分配给：每种语言的翻译文本一次... – Akiz

为什么不立即在db/sql中加入？ – cfrick

首先，您是否有翻译中使用的所有语言的列表？如果不是，让我们从translations收集得到它：

(def langs (distinct (map :translation_language translations))) ;; => ("cs" "en")

其次，你要使用translations集合作为一个查找表，这是有道理的，使地图上它。最简单的（尽管也许不是最有效的）的方式来做到这一点是使用group-by功能：

(def translations-map 
    (group-by (juxt :translation_text :translation_language) translations))

看起来你需要做的就是将每个:l<#>_chapter_text转化为实际的文本，或保留ID，如果该翻译在给定的语言中不可用。使用我们已经创建的地图，它几乎是微不足道的：

(defn translate [id lang] 
    (or (:translation_name (first (get translations-map [id lang]))) 
     id))

现在，让我们把它放在一起，以每chapter，并为每种语言，试图用翻译更换所有ID：

(for [chapter chapters 
     lang langs] 
    (-> chapter 
     (assoc :language lang) 
     (update :l1_chapter_text translate lang) 
     (update :l2_chapter_text translate lang) 
     (update :l3_chapter_text translate lang) 
     (update :l4_chapter_text translate lang)))

这应该会返回所需的结果。

来源

2017-08-14 09:04:30

(let [a ... 
     b ...] 
    (as-> [:l1_chapter_text :l2_chapter_text :l3_chapter_text :l4_chapter_text] 
     relations 
     (interleave relations (repeat :translation_text)) 
     (apply hash-map relations) 
     (mapcat #(clojure.set/join a b (into {} [%])) relations) 
     (group-by (fn [a] (apply str ((juxt :chapter_uuid :l1_chapter_text :l2_chapter_text :l3_chapter_text :l4_chapter_text :translation_language) a))) relations) 
     (vals relations)))

来源

2017-08-14 09:14:41 akond

如何从哈希映射中加入值？

回答

相关问题