Question

我正在使用environ设置配置图以获取env变量。由于 environ 将大写规范化为小写，将“_”字符规范化为“ - ”，我最终重复了关键字

(def config {:consumer-key (env :consumer-key)
             :keystore-password (env :consumer-key)
             :ssl-keystore-password (env :ssl-keystore-password)
             :ssl-certificate-name (env :ssl-certificate-name)
             :callback-url (env :callback-url)
             :mp-private-key (env :mp-private-key)
             :merchant-checkout-id (env :merchant-checkout-id)
             :is-sandbox (env :is-sandbox)})

有没有办法防止这种重复？也许是一个接收关键字并返回地图的某种键值对的函数？

Answer 1

正如评论中所述，由于env是地图，因此您只需将select-keys与要复制的密钥列表一起使用：

(def config
  (select-keys env [:consumer-key :is-sandbox
                    :keystore-password :ssl-keystore-password :ssl-certificate-name
                    :callback-url :mp-private-key :merchant-checkout-id]))

如果你有一个任意的功能而不是专门的地图，那么Alan Thompson的方法是合理的。

Answer 2

这是通过定义辅助函数来实现的一种方法：

(def env {:consumer-key   1
          :ssl-key        2
          :mp-private-key 3})

(def key-list (keys env))

(defn extract-from
  [src-fn keys]
  (into (sorted-map)
    (for [key keys]
      {key (src-fn key)} )))

(println "result:" (extract-from env key-list))

=> result: {:consumer-key 1, :mp-private-key 3, :ssl-key 2}

请注意，出于测试目的，我使用了一个技巧，并将地图 env替换为 功能 env库的strong> environ。这是有效的，因为地图在查找其键时可以像一个函数。它仍然适用于environ.core/env等实际功能。

在宣布地图时避免重复

2 个答案: