如何从 STDIN 读取 1 个字节？

Question

如何从 STDIN 读取一个字节？

我尝试 在 Hoogle 上搜索 IO Word8 但有没什么用处。

我能找到的最接近的是 System.IO .getChar，但它读取的是 Char 而不是 Word8。

Answer 1

我认为最简单的选择是使用 Data.ByteString 中的 hGet 如下所示：

import qualified Data.ByteString as B
import System.IO (stdin)
import Data.Word (Word8)

getByte :: IO Word8
getByte = B.head <
gt; B.hGet stdin 1

您也可以使用 hSetBinaryMode

import System.IO
import Data.Word (Word8)

getByte :: IO Word8
getByte = do
  hSetBinaryMode stdin True
  c <- getChar
  hSetBinaryMode stdin False
  pure $! fromIntegral (fromEnum c)