Question

最近我发现了sbcl 1.2.7（32bits，linux）的运行程序挂起问题。代码如下

(progn
  (with-open-file (s "test.out" :direction :output :if-exists :supersede)
    (loop repeat 900 do (write-line (make-string 76 :initial-element #\x) s)))
  (run-program "/bin/bash" (list "-c" "cat test.out") :output :stream))

当“cat test.out”为进程对象的进程输出流产生许多输出行时，`run-program'调用永远挂起。在我的测试机器上，当行数大于900时，就会出现这个问题。否则就好了。当输出数据写入进程输出流时，我怀疑这个问题是由某种块（可能缓冲区已满？）引起的。如果我们将代码更改为以下（避免将数据写入进程 - 输出流），则运行程序调用立即返回：

(length 
  (with-output-to-string (s)
      (run-program "/bin/bash" (list "-c" "cat test.out")
                   :output s)))
;;=> 69300

我不知道这是不是一个错误。是否有方法可以在挂起问题发生时立即返回呼叫？

还有一个类似的问题：how-to-read-from-large-process-output-correctly，但我没有得到为什么运行程序调用挂起的答案。

Answer 1

我也认为这可能是一些缓冲问题。但是，如果你从：逐行读取，那可以正常工作：

(let ((process
       (run-program "/bin/bash" (list "-c" "cat test.out") :output :stream :wait nil)))
  (loop for line = (read-line (process-output process) nil :eof)
        until (eq line :eof)
        do (print line)))

当程序有大量输出时，sbcl run-program挂起

1 个答案: