Question

我是Clojure的新手，而且我对leib命令行args的问题我无法解决。我的应用很简单：

 (defn -main
  [& args]
  (println (apply hash-map args))
  (let [{:keys [f w h]} (apply hash-map args)]
    (println f w h)
;     (init-frame w h)
;     (draw-values f w h)
))

终端输出：

lein run :f bit-xor :w 200 :h 200
{:w 200, :h 200, :f bit-xor}
nil nil nil

当我从REPL运行-main时效果很好。当我在core.clj中定义一个hashmap时，这样做也很好。

(def my-args (hasmap :f "bit-xor" :w 200 :h 200))

我无法弄清楚，为什么我的＆＃39; f＆＃39; w＆＃39;并且＆＃39; h＆＃39;让我们得到零。有人可以帮忙吗？

我做了一个特殊的小应用程序只是为了测试。

 (ns cmdargs.core
 (:gen-class))

(defn -main
 [& args]
 (println "args: " args)
 (println "args map: " (apply hash-map args))
 (println "param keys: " (keys (apply hash-map args)))
 (println "param vals: " (vals (apply hash-map args)))
 (let [{:keys [param1 param2]} (apply hash-map args)]
   (println "param1: " param1)
   (println "param2: " param2)))

REPL输出：

 cmdargs.core> (-main :param1 200 :param2 300)
 args:  (:param1 200 :param2 300)
 args map:  {:param2 300, :param1 200}
 param keys:  (:param2 :param1)
 param vals:  (300 200)
 param1:  200
 param2:  300
 nil
 cmdargs.core>

终端/ lein输出：

 cmdargs$ lein run :param1 200 :param2 300
 Java HotSpot(TM) Client VM warning: TieredCompilation is disabled in this release.
 Java HotSpot(TM) Client VM warning: TieredCompilation is disabled in this release.
 args:  (:param1 200 :param2 300)
 args map:  {:param1 200, :param2 300}
 param keys:  (:param1 :param2)
 param vals:  (200 300)
 param1:  nil
 param2:  nil

Answer 1

:keys解构仅适用于关键字，您认为通过-main传入的关键字实际上不是关键字而是字符串，每个字符串都以冒号开头。要确认这一点，请使用函数type来获取参数。

从https://clojure.org/guides/destructuring我发现了这句话：

：keys键用于带关键字键的关联值

如果您确实需要将传入参数转换为关键字，请使用keyword：

(keyword (subs ":f" 1))

所以在你的情况下，你可以这样做：

(map (comp keyword #(subs % 1)) [":f" ":w" ":h"])

，但不是[":f" ":w" ":h"]，而是args。

当然，如果您决定省略冒号，在Clojure读者之外没有意义，事情会变得更简单：https://clojure.org/reference/reader。

Answer 2

谢谢！ REPL和Lein差别解释'args'有点令人困惑。

REPL解释

中的'：param1'

-main :param1 200

进入 clojure.lang.Keyword

但在莱因

lein run :param1 200

进入'java.lang.String'。

我已经尝试过：strs而不是：key更早但忘记了冒号。这是有效的：

(defn -main
 [& args]
 (let [{:strs [:param1 :param2]} (apply hash-map args)]
 (println "param1: " param1)
 (println "param2: " param2)))

当然，在这种情况下，param之前的冒号并不意味着什么。

对于：键我已完成以下操作

(defn -main
  [& args]

  (let [{:keys [param1 param2]} 
     (into {} (for [[k  v] (apply hash-map args)]
                   [(keyword (apply str (rest k))) v]))]
  (println "param1: " param1)
  (println "param2: " param2)))

Leiningen命令args解析

2 个答案: