读取通过createProcess获得的管道的几行,然后将其关闭

现在的问题是,如果没有读取管道,“someproc”将在管道充满后立即阻塞。[...] 在Haskell中有什么方法可以自动丢弃 输入到管道(甚至重定向到文件)?

有一个用于 过程 打电话 process-streaming 自动地

库不直接使用句柄,但接受 pipe -消费功能和 foldl adapter type .

import           Data.Text.Lazy
import qualified Pipes.Prelude
import           System.Process.Streaming      (CreateProcess,shell,
                                                piped,execute,foldOut,transduce1,withCont)
import           System.Process.Streaming.Text (utf8x,foldedLines)

program :: CreateProcess
program = piped $ shell "{ echo aaa ; echo bbbb ; }"

firstLine :: IO (Maybe Text)
firstLine = execute program streams
    where
    streams = foldOut
            . transduce1 utf8x
            . transduce1 foldedLines
            $ withCont Pipes.Prelude.head

该库的依赖性足迹比 虽然

使用的替代方法取决于外部命令的行为。

如果你只是想打断,你可以 hClose outh . 这将关闭管道,通过外部命令进一步写入管道将失败,并出现“断管”错误。大多数进程在收到此消息后终止。

如果您想读取并丢弃输出,也可以这样做。也许最简单的方法是

do c <- hGetContents outh
   evaluate (length c)  -- force this to fetch all data
   doStuff              -- now we are sure that the remote end closed its output

它应该在恒定的空间中运行。

doStuff ,将所有内容 forkIO .