防止输入字符出现在终端中答案

【问题标题】：Preventing input characters appearing in terminal防止输入字符出现在终端中
【发布时间】：2013-03-28 18:09:40
【问题描述】：

我正在制作一个愚蠢的终端游戏，它使用键盘输入来控制一个角色在棋盘上移动。当用户按下一个键时，我的代码正确响应，使用getChar，但用户按下的字符也出现在终端中。有没有办法在终端应用程序中接收键盘输入，而不显示用户输入的内容？

编辑：我在 Mac 上，但很高兴了解所有平台。

【问题讨论】：

在 Windows 上使用 this workaround to the character buffering bug 静默获取 Chars。

标签： haskell terminal

【解决方案1】：

为了达到你的目标，基本上你必须做两件事：

您必须禁用终端中的任何缓冲，以便您的程序立即获得按下的键（并且您不必使用 ENTER 确认）。
```
hSetBuffering stdin NoBuffering
```
那么你必须确保字符不会回显到终端。
```
hSetEcho stdin False
```

请注意，在您的程序退出之前，它必须恢复以前的设置，以便进一步使用终端。

将所有内容放在一起，代码将如下所示：

import System.IO
import Control.Exception (bracket)

withHiddenTerminalInput :: IO a -> IO a
withHiddenTerminalInput io = bracket
   (do prevBuff <- hGetBuffering stdin
       prevEcho <- hGetEcho stdin

       hSetBuffering stdin NoBuffering
       hSetEcho stdin False

       return (prevBuff, prevEcho)
   )

   (\(prevBuff, prevEcho) -> do
       hSetBuffering stdin prevBuff
       hSetEcho stdin prevEcho
   )

   (const io)

【讨论】：

正如 AndrewC 已经指出的那样，这可能不适用于 Windows 上的 GHC。