如何与 clisp 中的 ssh 会话交互？

Question

我想使用 common lisp 来编写脚本，并通过 ssh 连接到远程计算机并发送一些命令。最简单的方法似乎是使用 clisp 的 ext:run-shell-command，文档此处，以及然后读取并写入结果流。如果有更好的方法请告诉我。当我尝试这样做时：

[5]> (setf shell-str (ext:run-shell-command "ssh remotecomp" :input :stream :output :stream)) 

#<IO TWO-WAY-STREAM #<INPUT BUFFERED PIPE-INPUT-STREAM CHARACTER 1204> #<OUTPUT BUFFERED PIPE-OUTPUT-STREAM CHARACTER 1204>>
[6]> Pseudo-terminal will not be allocated because stdin is not a terminal.

inferior-lisp-buffer 中的进程挂起，必须使用 Cc c 终止。然而， shell-str 对象确实被创建了，但是当我尝试从中读取时，那里没有输出。

[9]> (read-line shell-str)

*** - READ: input stream
       #<IO TWO-WAY-STREAM #<INPUT BUFFERED PIPE-INPUT-STREAM CHARACTER 1204>
         #<OUTPUT BUFFERED PIPE-OUTPUT-STREAM CHARACTER 1204>>
      has reached its end
The following restarts are available:
ABORT          :R1      Abort main loop

使用“ls -l”之类的命令运行 ext:run-shell-command 确实可以按预期工作。在 cygwin 甚至 Windows 命令提示符中运行 ssh 可以正常工作。我在 Windows 7 上运行 clisp 2.49 和 openssh 5.9p1。

编辑：通过不使用密码和 ssh 的双 -t 参数来使其工作。

(setf str (ext:run-program "ssh" :arguments '("-t" "-t" "host") :output :stream :input :stream))
(format str "ls -l~%")
(finish-output str)
(read-line str)

Answer 1

Snowape 找到了 clisp 的解决方案。下面是该 CCL 解决方案的工作版本：

? (run-program "ssh" '("-t" "-t" "[user]@[ip]") :output :stream :input :stream :wait nil)
#<EXTERNAL-PROCESS (ssh -t -t ...)[65909] (RUNNING) #x302000A2335D>
? (setf *t* *)
#<EXTERNAL-PROCESS (ssh -t -t ...)[65909] (RUNNING) #x302000A2335D>
? (setf *in* (external-process-input-stream *t*))
#<BASIC-CHARACTER-OUTPUT-STREAM ISO-8859-1 (PIPE/17) #x302000A2304D>
? (setf *out* (external-process-output-stream *t*))
#<BASIC-CHARACTER-INPUT-STREAM ISO-8859-1 (PIPE/18) #x302000A22ABD>
? (read-line *out*)
"Last login: ...
NIL
? (read-line *out*)
"Have a lot of fun...
NIL
? (format *in* "ls -l~%")
NIL
? (finish-output *in*)
NIL
? (read-line *out*)
"user@ip:~> ls -l
NIL
? (read-line *out*)
"total 0
[etc.]

作为一种替代方法，您可以使用 Quicklisp 加载 Trivial Shell 包，然后从执行脚本的 lisp 会话中启动一个 shell 进程（其中将包含 ssh 命令） 。不过，我从未在 Windows 中尝试过 Trivial Shell，所以不确定它的表现如何。