使用“Lein run”和“Clojure -M”运行的脚本挂起。在 REPL 中工作

Question

$ lein --version
Leiningen 2.9.10 on Java 17.0.4.1 OpenJDK 64-Bit Server VM
$ clojure -version
Clojure CLI version 1.11.1.1155
$ java -version
openjdk version "17.0.4.1" 2022-08-12
OpenJDK Runtime Environment (build 17.0.4.1+1)
OpenJDK 64-Bit Server VM (build 17.0.4.1+1, mixed mode)

我有一些非常我正在尝试运行的基本代码。

(use '[clojure.java.shell :only [sh]])
(defn -main [] (sh "echo" "Hello, World!"))
(-main)

在 REPL 中，这可预测地返回

{:exit 0, :out "Hello, World!\n", :err ""}

但是，当这是脚本的内容（逐字）时，clojure -M 就会挂起。取消对 ns 的注释并尝试将其作为一个带有 lein run 的项目运行会产生相同的行为。

我也试过 requires + :refer 并将其放入命名空间。我试过使用 (print (:out (sh "echo" "stuff"))) 显式打印标准输出。

我的项目.clj：

(defproject findbad "0.1.0-SNAPSHOT"
  :description "FIXME: write description"
  :url "http://example.com/FIXME"
  :dependencies [[org.clojure/clojure "1.11.1"]]
  :source-paths ["."]
  :repl-options {:init-ns findbad}
  :main findbad)

和 .lein/profile.clj：

{:user {:plugins [
                  [lein-try "0.4.3"]
                  [flat-layout/lein-template "1.6.0"]
                  [simple-layout/lein-template "0.1.0"]]}}

我可以使用clojure -M 运行以下命令，但lein run -main 现在会抛出错误（改进？）。

(ns findbad
  (:gen-class))

(use '[clojure.java.shell :only [sh]])

(defn -main [] (print "Hello, World"))

(-main)

{:clojure.main/message
 "Execution error (ArityException) at user/eval140 (form-init17641850740462455309.clj:1).\nWrong number of args (1) passed to: findbad/-main\n",
 :clojure.main/triage
 {:clojure.error/class clojure.lang.ArityException,
  :clojure.error/line 1,
  :clojure.error/cause
  "Wrong number of args (1) passed to: findbad/-main",
  :clojure.error/symbol user/eval140,
  :clojure.error/source "form-init17641850740462455309.clj",
  :clojure.error/phase :execution},
 :clojure.main/trace
 {:via
  [{:type clojure.lang.Compiler$CompilerException,
    :message
    "Syntax error macroexpanding at (/tmp/form-init17641850740462455309.clj:1:74).",
    :data
    {:clojure.error/phase :execution,
     :clojure.error/line 1,
     :clojure.error/column 74,
     :clojure.error/source "/tmp/form-init17641850740462455309.clj"},
    :at [clojure.lang.Compiler load "Compiler.java" 7665]}
   {:type clojure.lang.ArityException,
    :message "Wrong number of args (1) passed to: findbad/-main",
    :at [clojure.lang.AFn throwArity "AFn.java" 429]}],
  :trace
  [[clojure.lang.AFn throwArity "AFn.java" 429]
   [clojure.lang.AFn invoke "AFn.java" 32]
   [clojure.lang.Var invoke "Var.java" 384]
   [user$eval140 invokeStatic "form-init17641850740462455309.clj" 1]
   [user$eval140 invoke "form-init17641850740462455309.clj" 1]
   [clojure.lang.Compiler eval "Compiler.java" 7194]
   [clojure.lang.Compiler eval "Compiler.java" 7184]
   [clojure.lang.Compiler load "Compiler.java" 7653]
   [clojure.lang.Compiler loadFile "Compiler.java" 7591]
   [clojure.main$load_script invokeStatic "main.clj" 475]
   [clojure.main$init_opt invokeStatic "main.clj" 477]
   [clojure.main$init_opt invoke "main.clj" 477]
   [clojure.main$initialize invokeStatic "main.clj" 508]
   [clojure.main$null_opt invokeStatic "main.clj" 542]
   [clojure.main$null_opt invoke "main.clj" 539]
   [clojure.main$main invokeStatic "main.clj" 664]
   [clojure.main$main doInvoke "main.clj" 616]
   [clojure.lang.RestFn applyTo "RestFn.java" 137]
   [clojure.lang.Var applyTo "Var.java" 705]
   [clojure.main main "main.java" 40]],
  :cause "Wrong number of args (1) passed to: findbad/-main",
  :phase :execution}}

我如何获得“错误数量的参数”？我没有将任何东西传递给一个不带任何东西的函数。

即使我能让那个 (print "Hello, World") 示例起作用，那也不是我感兴趣的。

编辑：好的，我不确定我做了什么不同，但我可以让它与(print (:out (sh "echo" "stuff")))一起工作。此外，悬挂已修复 (shutdown-agents)。

Answer 1

您的主函数不接受任何参数 ([])。 Clojure 使用命令行参数列表从 cli 调用 -main 导致 arity 异常。尝试将 & args 添加到 -main 参数向量：

(defn -main [& args] (print "Hello, World"))