从 createProcess 外部获得的句柄读取

Question

我正在尝试创建一个进程，并通过我在 createProcess 函数之外提供的句柄与其通信：

stdOutH <- openFile (logDir </> "stdout.log") ReadWriteMode
hSetBuffering stdOutH LineBuffering
(_, _, _, ph) <- createProcess $
    (proc "someproc" []) { std_out = UseHandle stdOutH
                         , std_err = UseHandle stdErrH
                         }
line <- hGetLine stdOutH
putStrLn $ "Got " ++ line

"someproc" 进程向标准输出吐出一行，我想从产生它的进程中读取它。但是，如果我尝试这样做，我会收到以下错误：

hGetLine：非法操作（句柄已关闭）

我不明白的是为什么在创建的进程是运行的时候关闭句柄。如果我使用 CreatePipe 而不是 UseHandle，这会起作用，问题是我只想阅读第一行。但是这样做需要继续从管道中读取，否则在 "someproc".

一定数量的输出后它会变满

那么，有没有一种方法可以使用system.process通过stdOutH以上述方式与两个进程进行通信？

Answer 1

createProcess 的这种行为是 documented:

Note that Handles provided for std_in, std_out, or std_err via the UseHandle constructor will be closed by calling this function.

文档建议改用 createProcess_ 函数。

从 createProcess 外部获得的句柄读取

Reading from a handle obtained outside createProcess

io

haskell

ipc