如何访问原子贴图中的贴图？

Question

我正在尝试访问原子贴图中的贴图。我有这个：

(def database (atom {:henk {:username "henk" :password "johnson" :session "test"}
:steve {:username "steve" :password "boldwin" :session "test2"}
:cane {:username "cane" :password "john" :session "test3"}}))

我已经尝试过使用交换！在dosync内部，但我似乎无法访问所需的值。你能帮帮我吗?

Answer 1

 user=> (def database (atom {:henk {:username "henk" :password "johnson" :session "test"}
                             :steve {:username "steve" :password "boldwin" :session "test2"}
                             :cane {:username "cane" :password "john" :session "test3"}}))
 #'user/database
 user=> (:henk @database)
 {:session "test", :username "henk", :password "johnson"}

要修改，请执行以下操作：

user=> (swap! database assoc-in [:henk :session] "test + swap")
{:cane {:session "test3", :username "cane", :password "john"}, 
 :henk {:session "test + swap", :username "henk", :password "johnson"}, 
 :steve {:session "test2", :username "steve", :password "boldwin"}}

检查值是否已更新：

user=> @database
{:cane {:session "test3", :username "cane", :password "john"}, 
 :henk {:session "test + swap", :username "henk", :password "johnson"}, 
 :steve {:session "test2", :username "steve", :password "boldwin"}}