if map is following:
{:_ACCT-ID_ 9876 :_ACCT-TYP_ "B"}
then:
(defn sql-map-replace [sql m]
(letfn [(quote-if-str [s]
(if (string? s) (str "'" s "'") s))]
(reduce-kv (fn [ret k v]
(clojure.string/replace ret
(re-pattern (str "(.*)" (name k) "(.*)"))
(str "$1" (quote-if-str v) "$2")))
sql m)))
--
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
---
You received this message because you are subscribed to the Google Groups
"Clojure" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to clojure+unsubscr...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.
