在字符串中替换字符，用clojure中地图中的一组字符

Question

我有一个功能，该函数添加了字符串s和一个字符的地图charmap。如果字符串s中的任何字符都在charmap的内部，请用地图的值替换字符。

注意，地图中的键必须是字符串，而不是字符串。

例如：

(replace-characters "Hi!" {"!" "Exclamation Mark"}) ;; => "HiExclamation Mark"

这是我当前正在使用的代码：

(defn- replace-characters
  "Replaces any characters in a string that are mapped in the given charmap"
  [s charmap]
  (let [character-set (set s)
        characters (filter #(contains? charmap (str %)) character-set)]
    (string/replace s (re-pattern (string/join "|" characters)) charmap)))

但是，我得到了nullpointerexception，我对原因感到非常困惑。

java.lang.NullPointerException: Cannot invoke "String.indexOf(int)" because "s" is null

我想在纯clojure中解决这个问题，最好是Java等

。这很好。但是由于某种原因，以下原因是导致错误：

(-> s
     (string/replace #"[:/?#\[\]@!$&'()*+,;=]" "")
     (replace-characters charmap)) ;; Where charmap is a large map of key value characters.

Answer 1

这是导致错误的表达式：（

(str/replace "Hi" #"" {"!" "Exclamation Mark"})

“！”被正则替换为“”， targine> targine-set 具有值＃＃ {\ h \ i}和字符 is （），因此使用re repattern IS ＃＃＃创建的模式“。）

空的正则态度与字母之间的每个空间匹配：

(str/replace "Hi" #"" " ")

=> " H i "

so，替换正在寻找在哈希映射{“！”中替换。 “感叹号”}，但找不到任何东西 - 没有键“”：

(str/replace "Hi" #"" {"!" "Exclamation Mark"})
=> error

(str/replace "Hi" #"" {"" " "})
=> " H i "

一种可能的解决方案可以简化repent> replace-characters的定义。 （此解决方案仅适用于非Expry-Code> CharMap ）：

(defn replace-characters [s charmap]
  (str/replace s (re-pattern (str/join "|" (keys charmap)))
               charmap))

测试：

(replace-characters "Hi!" {"!" "Exclamation Mark"})

=> "HiExclamation Mark"

(-> "Hi!"
    (str/replace #"[:/?#\[\]@!
amp;'()*+,;=]" "")
    (replace-characters {"!" "Exclamation Mark"}))

=> "Hi"

Answer 2

我只会和这样简单的事情：

(apply str (replace {"!" "[exclamation mark]"
                         "?" "[question mark]"}
                       (map str "is it possible? sure!")))

;;=> "is it possible[question mark] sure[exclamation mark]"

或这样使用传感器：

(apply str (eduction (map str) (replace {"!" "[exclamation mark]"
                                                "?" "[question mark]"})
                        "is it possible? sure!"))

或者可能是这样：

(defn replace-characters [s rep]
  (apply str (map #(rep (str %) %) s)))

user> (replace-characters "is it possible? sure!" {"!" "[exclamation mark]"
                                                            "?" "[question mark]"})

;;=> "is it possible[question mark] sure[exclamation mark]"

Answer 3

string> string/code确切地做您想要的事情：

(string/escape "Hi!" {\! "Exclamation Mark"})
;; => "HiExclamation Mark"

该功能替代字符使用从角色到更换的地图。

如果要替换REGEXES或字符串，则可以使用 redain-kv < < < < < /a>与 string/替换

(def replacements
  (array-map
   "!" "Exclamation Mark"
   #"[:/?#\[\]@!
amp;'()*+,;=]" ""
   #_more_replacements))

(defn replace [s replacements]
  (reduce-kv string/replace s replacements))

（按顺序，当替换是 /code> ）在替换的密钥和值上，并使用String/replact在字符串s上应用它们。

(replace "Hi!" replacements)
;; => "HiExclamation Mark"

如果array-map中的元素的顺序颠倒了！使用“”（因为！在以下是正则>）将成功：

(replace "Hi!" (into (array-map) (reverse replacements)))
;; => "Hi"