java - 从 Clojure 中的字符串解析命令行参数

Question

我处于这样一种情况，我需要以与在命令行上提供给 Java/Clojure 应用程序时相同的方式解析字符串中的参数。

例如，我需要将 "foo\"bar baz\"'fooy barish' foo" 变成 ("foo""bar baz""fooy barish""foo")。

我很好奇是否有一种方法可以使用 Java 或 Clojure 用来执行此操作的解析器。我不反对使用正则表达式，但我不喜欢正则表达式，如果我尝试为此编写一个正则表达式，我会失败的。

有什么想法吗？

Answer 1

更新了一个更复杂的新版本。这在官方上是荒谬的；下一次迭代将使用适当的解析器(或 c.c.monads 和在其之上的一些类似 Parsec 的逻辑)。查看原始答案的修订历史。

这一堆令人费解的函数似乎可以解决问题(我对这个函数不是很感兴趣，抱歉!):

(defn initial-state [input]
  {:expecting nil
   :blocks (mapcat #(str/split % #"(?<=\s)|(?=\s)")
                   (str/split input #"(?<=(?:'|\"|\\))|(?=(?:'|\"|\\))"))
   :arg-blocks []})

(defn arg-parser-step [s]
  (if-let [bs (seq (:blocks s))]
    (if-let [d (:expecting s)]
      (loop [bs bs]
        (cond (= (first bs) d)
              [nil (-> s
                       (assoc-in [:expecting] nil)
                       (update-in [:blocks] next))]
              (= (first bs) "\\")
              [nil (-> s
                       (update-in [:blocks] nnext)
                       (update-in [:arg-blocks]
                                  #(conj (pop %)
                                         (conj (peek %) (second bs)))))]
              :else
              [nil (-> s
                       (update-in [:blocks] next)
                       (update-in [:arg-blocks]
                                  #(conj (pop %) (conj (peek %) (first bs)))))]))
      (cond (#{"\"" "'"} (first bs))
            [nil (-> s
                     (assoc-in [:expecting] (first bs))
                     (update-in [:blocks] next)
                     (update-in [:arg-blocks] conj []))]
            (str/blank? (first bs))
            [nil (-> s (update-in [:blocks] next))]
            :else
            [nil (-> s
                     (update-in [:blocks] next)
                     (update-in [:arg-blocks] conj [(.trim (first bs))]))]))
    [(->> (:arg-blocks s)
          (map (partial apply str)))
     nil]))

(defn split-args [input]
  (loop [s (initial-state input)]
    (let [[result new-s] (arg-parser-step s)]
      (if result result (recur new-s)))))

有些令人鼓舞的是，以下结果 true:

(= (split-args "asdf 'asdf \" asdf' \"asdf ' asdf\" asdf")
   '("asdf" "asdf \" asdf" "asdf ' asdf" "asdf"))

这样做也是如此:

(= (split-args "asdf asdf '  asdf \" asdf ' \" foo bar ' baz \" \" foo bar \\\" baz \"")
   '("asdf" "asdf" "  asdf \" asdf " " foo bar ' baz " " foo bar \" baz "))

希望这应该修剪常规参数，但不是用引号括起来的参数，处理双引号和单引号，包括不带引号的双引号内的带引号的双引号(请注意，它目前以相同的方式处理不带引号的单引号内的带引号的单引号，这显然与 *nix shell 方式不一致... argh) 等。请注意，它基本上是一个临时状态 monad 中的计算，只是以一种特别丑陋的方式编写并且迫切需要 DRYing up。 :-P