惯用clojure从字符串解析命令行开关和参数
我想解析一个命令行字符串,并将任何命令开关及其后续参数分组。例如:惯用clojure从字符串解析命令行开关和参数,clojure,Clojure,我想解析一个命令行字符串,并将任何命令开关及其后续参数分组。例如: (parse "git branch -d f1 f2 -a -m message") => [["-d" "f1" "f2"]["-a"]["-m" "message"]] 我忽略没有紧跟开关的参数 我为此编写的代码如下: (defn switch? [s] (re-find #"\-+" s)) (defn tokenify [s] (clojure.string/split s #" ")) (defn pars
(parse "git branch -d f1 f2 -a -m message") =>
[["-d" "f1" "f2"]["-a"]["-m" "message"]]
我忽略没有紧跟开关的参数
我为此编写的代码如下:
(defn switch? [s] (re-find #"\-+" s))
(defn tokenify [s] (clojure.string/split s #" "))
(defn parse [cmd-str]
(loop [lst (tokenify cmd-str), acc [], _acc []]
(let [fs (first lst), rs (rest lst), new? (empty? _acc)]
(cond (empty? lst) (if new? acc (conj acc _acc))
(switch? fs) (if new?
(recur rs acc (conj _acc fs))
(recur rs (conj acc _acc) (conj [] fs)))
:else (if new?
(recur rs acc _acc)
(recur rs acc (conj _acc fs)))))))
这是可行的,但它的水平很低,很可怕。有没有一种使用reduce、partition或groupby的简单方法可以使相同的功能更干净、更地道?下面是使用reduce、partition或groupby的基本要点
使用
tools.cli
,然后将参数作为数据进行操作。
(def command-line-spec
[["-m" "--mode 0|1" "description of option that takes 1 or 0"
:parse-fn #(case (s/lower-case %)
("1" "true" "create") :one
("0" "false" "destroy") :zero
:invalid)
:default :one
:validate [#{:one :zero} "Unsupported mode"]]
["-c" "--config type1|type2|..."
:desc "config specifies what to do"
:default :dostuff
:parse-fn #(if (keyword? %)
%
(-> % s/lower-case keyword))
:validate-fn #(contains? configurations %)]
["-n" "--name service Name"
:default (getenv "NAME")]
[nil "--min number"
:default 7 :parse-fn #(Integer/parseInt %)]
[nil "--max number"
:default 7 :parse-fn #(Integer/parseInt %)]
[nil "--public true|false" "true or false"
:default false
:parse-fn #(Boolean/parseBoolean %)]
["-h" "--help"]])
(defn -main [& args]
(let [{:keys [options arguments errors summary]}
(parse-opts args
command-line-spec)
... )