Haskell:如何将一个句柄的内容实时传输到另一个句柄中

Question

我正在编写一个以交互方式运行外部子进程的程序,我需要输出句柄的内容一旦可用就输出到stdout.我尝试过这样的事情:

main = do processInfo <- createProcess (proc "ghci" []){std_out = CreatePipe,
                                                    std_in  = CreatePipe }
       case processInfo of
          (Just hIn, Just hOut, _, _) -> do mainloop hIn hOut
                                          hClose hIn
                                          hClose hOut
       _                              -> do error "Unable to start process"

mainloop :: Handle -> Handle -> IO ()
mainloop inh outh = 
    do ineof <- hIsEOF outh
       if ineof
          then return ()
          else do inpStr <- hGetLine outh
                  putStrLn inpStr
                  mainloop inh outh

但这不起作用,因为它只能逐行识别输出,因此不会显示未由换行符终止的进程输出句柄上的任何输出.我用hGetContents尝试了同样的事情,但它产生了相同的结果.我已经阅读了System.Process和System.IO的文档,并没有真正找到任何结论.

Answer 1

hSetBuffering就是你要找的，默认值（至少在 Unix 上）是行缓冲。在启动主循环之前在标准输入上使用它

hSetBuffering hIn NoBuffering

如果您想立即在输出端看到结果，也可以选择在输出句柄上。但请注意，禁用缓冲会极大地降低性能。