在 SBCL Common Lisp 中执行“docker run”

问题描述

我正在尝试在我的 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 权限的情况下授予它权限？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

command-line common-lisp docker sbcl