Question

我是一个绝对的Clojure初学者，我正在尝试使用clojure.tools.cli库构建一个CLI应用程序。

我的问题是，如果未提供所需参数的选项，则无法显示任何错误。

我想要的是什么：

$ java -jar test.jar -m SAMPLE
Given file: SAMPLE

$ java -jar test.jar -m
ERROR: Please provide a file

会发生什么：

$ java -jar test.jar -m SAMPLE
Given file: SAMPLE

$ java -jar test.jar -m

$

它没有显示任何内容。

这是我的代码：

(ns obmed-clj.core
  (:require [clojure.tools.cli :refer [parse-opts]])
  (:gen-class))

(def cli-options
  [["-m" "--menu FILE" "Provide menu file path"
    :parse-fn #(if (nil? %) 
                   (println "ERROR: Please provide a file") 
                   %)
    :validate-fn #(println "Given file:" %)]])

(defn -main [& args]
  (parse-opts args cli-options))

Answer 1

你在这里滥用main论点。它们的用途是转换＆＃34;字符串＆＃34; （在您的情况下，因为您有-fn），然后对此进行额外验证（而是使用"--menu FILE"代替）。例如：

:validate [fn msg]

缺少参数：

user=> (def cli-opts [["-m" "--menu FILE" "menu file" 
            :parse-fn #(java.io.File. %) 
            :validate [#(.exists %) "file must exist"]]])
#'user/cli-opts

档案不存在：

user=> (parse-opts ["-m"] cli-opts)
{:arguments [],
 :errors ["Missing required argument for \"-m FILE\""],
 :options {},
 :summary "  -m, --menu FILE  menu file"}

一切都很好：

user=> (parse-opts ["-m" "XXX"] cli-opts)
{:arguments [],
 :errors ["Failed to validate \"-m XXX\": file must exist"],
 :options {},
 :summary "  -m, --menu FILE  menu file"}

如何显示选项缺失参数的错误？

1 个答案: