2

我正在尝试在我的 lisp 程序中运行一个函数。它是一个连接到 IRC 频道的机器人，通过一个特殊的命令，您可以查询该机器人以评估一个简单的 lisp 命令。因为从互联网上的人那里执行任意代码是极其危险的，所以我希望在一个虚拟机中进行实际的评估，该虚拟机为机器人获取的每个评估查询运行一个 docker。

我的功能如下所示：

(defun run-command (cmd)
  (uiop:run-program (list "docker" "run" "--rm" "-it" "my/docker" "sbcl" "--noinform" "--no-sysinit" "--no-userinit" "--noprint" "--disable-debugger" "--eval" (string-trim '(#\^M) (format nil "~A" cmd))) "--eval" "'(quit)'") :output '(:string :stripped t))

这个函数背后的想法是启动一个包含 SBCL 的 docker，通过 SBCL --eval 运行命令并将其打印到 docker std-out。这个打印的字符串应该是run-command.

如果我打电话

docker run --rm -it my/docker sbcl --noinform --no-sysinit --no-userinit --noprint --disable-debugger --eval "(print (+ 2 3))" --eval "(quit)"

在我的命令行上，我只得到 5，这正是我想要的。

但是如果我在 lisp 中运行相同的命令，uiop:run-program我得到的功能

Subprocess #<UIOP/LAUNCH-PROGRAM::PROCESS-INFO {1004FC3923}>
 with command ("docker" "run" "--rm" "-it"
               "my/docker" "sbcl" "--noinform"
               "--no-sysinit" "--no-userinit" "--noprint"
               "--disable-debugger" "--eval" "(+ 2 3)")

作为错误消息，这意味着该过程以某种方式失败。但我不知道这里到底有什么问题。如果我只是执行例如“ls”，我会得到输出，所以该函数似乎可以正常工作。

是否有一些我需要的特殊知识，uiop:run-program或者我做错了什么？

提前致谢。

编辑：所以事实证明 -it 标志引起了问题。删除标志后出现新错误。现在机器人没有执行 docker 的权限。有没有办法在不授予它 sudo 权限的情况下授予它权限？

4

2 回答 2

1

此处调用 docker 的方式（或 SBCL）可能有问题。要获取错误消息，请uiop:run-program使用:error-output :string参数调用，然后选择continue重新启动以实际上终止执行并打印错误输出（如果您从 SLIME 或其他一些 REPL 运行）。如果您在非交互式环境中调用它，您可以将调用包装在处理程序绑定中：

(handler-bind ((uiop/run-program:subprocess-error
                 (lambda (e) (invoke-restart (find-restart 'continue)))))
  (run-command ...))
于 2021-03-18T19:33:36.233 回答
1

事实证明，这-it确实造成了麻烦。删除它并提升机器人的正确权限后，一切正常。

于 2021-03-18T22:03:52.223 回答