如何在 Haskell 中组合句柄？

Question

我希望在 Haskell 中有类似 bash 的 2>&1 重定向的功能，将进程中的 stdout 和 stderr 组合成一个 <代码>句柄。直接使用 System.Process.createProcess 或类似的库函数来完成此操作会很好，特别是如果它使用与来自句柄的 bash 重定向交错输入相同的语义。

createProcess 提供的灵活性一开始看起来很有希望：可以指定一个用于标准文件描述符的句柄，因此可以使用相同的句柄为 stdout 和 stderr 提供。但是，Handle 参数必须在调用之前已存在。如果无法在调用函数之前凭空创建一个句柄，我不确定问题是否可以通过这种方式解决。

编辑：该解决方案需要在任何平台上都能工作。

Answer 1

来自此处：

import GHC.IO.Handle   -- yes, it's GHC-specific
import System.IO

main = do
  stdout_excl <- hDuplicate stdout
  hDuplicateTo stderr stdout  -- redirect stdout to stderr

  putStrLn "Hello stderr" -- will print to stderr
  hPutStrLn stdout_excl "Hello stdout" -- prints to stdout

Answer 2

掌握 Handle 并不难：System.IO 提供常量 stdin、stdout、stderr :: Handle 和函数 >withFile::FilePath -> IO模式-> (句柄->IO r)-> IO r 和 openFile::FilePath -> IO模式-> IO 句柄。

或者，您可以从 createProcess 请求新管道，并将自己设置为转发服务（从您孩子的新 stdout 和 stderr 句柄读取并将两者发送到您喜欢的任何地方）。

Answer 3

由于 Windows 支持 管道 (3)< /code>原生和 GHC 的 IO 库 在 Windows 内部使用 CRT 文件描述符，因此有可能提出一个至少在 Windows 和 *nix 上都有效的解决方案。基本算法是：

• 调用pipe。这为您提供了两个文件描述符，您可以使用 fdToHandle'。
• 调用 createProcess，并将 stdout 和 stderr 均设置为管道的写入端。
• 从管道的读取端读取子输出。

System.Posix.Internals导出 c_pipe 的 模块默认是隐藏的，但您可以编译一个自定义版本的 base 来访问它（提示：使用 cabal-dev）。或者，您可以通过 FFI 访问pipe。 注意：此解决方案是 GHC 特定的。