Clojure 重新查找 reg-ex 或

Question

我一直在尝试让一个简单的 reg-ex 在 Clojure 中工作，以测试字符串中的一些 SQL 保留字（select、from、where 等），但无法让它工作：

(defn areserved? [c]
  (re-find #"select|from|where|order by|group by" c))

（我用空格分割一个字符串，然后遍历所有单词）

非常感谢您的帮助，

谢谢！

---

编辑：我的第一个目标（在仅阅读了一些示例和基本 Clojure 材料之后）是解析一个字符串并为它的每个部分（即单词）返回他们在语句（保留字、字符串等）。

到目前为止我所拥有的：

(use '[clojure.string :only (join split)])

(defn isdigit? [c]
  (re-find #"[0-9]" c))

(defn isletter? [c]
  (re-find #"[a-zA-Z]" c))

(defn issymbol? [c]
  (re-find #"[\(\)\[\]!\.+-><=\?*]" c))

(defn isstring? [c]
  (re-find #"[\"']" c))

(defn areserved? [c]
  (if (re-find #"select|from|where|order by|group by" c)
      true
      false))

(defn what-is [token]
  (let [c (subs token 0 1)]
    (cond
      (isletter? c)  :word
      (areserved? c) :reserved
      (isdigit? c)   :number
      (issymbol? c) :symbol
      (isstring? c) :string)))

(defn checkr [token]
  {:token token
   :type (what-is token)})

(defn goparse [sql-str]
  (map checkr (.split sql-str " ")))

感谢大家的帮助！很高兴看到对这种相对较新的语言有如此多的支持（至少对我来说：））

Answer 1

我不完全确定您到底想要什么，但这里有一些变体可以将您的第一个正则表达式匹配强制为布尔值：

(defn areserved? [c]
  (string?
    (re-find #"select|from|where|order by|group by"c)))

(defn areserved? [c]
  (if (re-find #"select|from|where|order by|group by"c)
      true
      false))

更新问题编辑：

感谢您发布更多代码。不幸的是，这里有很多我们可以解决的问题 尝试通过以简单和幼稚的方式修补现有代码来解决问题，但它会 在您使用这种单次迭代方法遇到下一个问题之前，您只能做到这一点。

@alex 是正确的，你的 areserved? 方法将无法匹配 order by 如果你已经 用空格分割你的字符串。也就是说，一个简单的解决方法是将 order 和 by 视为单独的关键字（尽管它们总是一起出现）。

下一个问题是areserved? 函数将匹配字符串中的关键字，但您将它分派给what-is 函数中的字符。您几乎总是在cond 中找到与isletter? 匹配的内容，因此您会将所有内容都标记为“单词”。

总而言之，您似乎试图在 map 的单个应用程序中做太多工作。

我不确定您这样做是否只是为了玩 Clojure 的乐趣（这令人钦佩 - 继续前进！），在这种情况下，如果您继续使用这种简单的解析方法可能并不重要。 ..你肯定会学到一些东西；但如果您想更进一步并更成功地解析 SQL，那么我建议您在 Lexing、Parsing 上阅读一些内容可能会有所帮助strong> 并构建 Abstract Syntax Trees (AST)。

Brian Carper 曾写过关于使用 Java parser generator "ANTLR" from Clojure 的文章 - 它已经有几年历史了，但可能值得一看。

您还可以从this chapter from the F# programming book on lexing and parsing SQL 获得一些可转移的想法。