mysql - 如何编写带有嵌入式双引号的 Clojure 查询

Question

我想编写一个 Clojure 查询，以便将 where 子句中的 lnam 和 fnam 参数用双引号引起来。我需要将它们用双引号引起来，因为嵌入的名称包含单引号字符，例如“O'BRIEN”。

我一直在查看 Clojure 查询和在字符串中嵌入双引号的示例，但没有找到我想要的示例。

这在 lein repl 中运行良好

gic-cmp.core=> (def lnam "O'BRIEN")
#'gic-cmp.core/lnam
gic-cmp.core=> (str """"lnam"""")
"O'BRIEN"

但这不会在下面的查询中产生带引号的字符串。

(defn match-this-rec-with-last
    ""
    [gic-id lnam fnam search-date]
    (let [query (str (str "select g.* from gic_employees g where g.processed_date = '" search-date "' ")
                          (str "and g.gic_id = '" gic-id "' and g.last_name = ")
                          """"lnam""""
                          (str " and g.first_name = ")
                          (str """"fnam"""")
                          (str " order by g.processed_date desc "))]
      (println query)
      (j/query db
            [query])))

Answer 1

REPL 显示带有引号的 str 函数的返回值。

(str """"lnam"""")

这将返回 2 个空字符串 lnam 和另外 2 个空字符串，所有字符串都用引号引起来。

底层字符串是 java.lang.String，在字符串中包含双引号的标准 Java 方法是使用反斜杠将其转义。

user=> (str "test with \"quoted\" value")
"test with \"quoted\" value"
user=> (println (str "test with \"quoted\" value"))
test with "quoted" value