putStr 和 putStrLn 弄乱了输出[重复]

Question

我是从《Learn You a Haskell For Great Good》一书中学习 Haskell 的。有这个代码

import Control.Monad
import Data.Char
main = forever $ do
    putStr "Give me some input: "
    l <- getLine
    putStrLn $ map toUpper l

当我最初在 gitbash 中运行此代码时，它只是在给出输入文本并按 Enter 后询问任何输入（假设输入文本是 soham）它显示 Give me some input: SOHAM。

然后我将代码更改为

import Control.Monad
import Data.Char
main = forever $ do
    putStrLn "Give me some input: "
    l <- getLine
    putStrLn $ map toUpper l

运行后它显示Give me some input: 并要求输入。在给出相同的输入soham 后，它显示SOHAM

再次将代码更改为

import Control.Monad
import Data.Char
main = forever $ do
    putStr "Give me some input: "
    l <- getLine
    putStr $ map toUpper l

它只是一次又一次地接受输入，当我按下文件结束键（ctrl+C）时，它会并排显示所有输出，但输出就像原始代码一样。

为什么会发生这种变化？

Answer 1

这可能是由于缓冲：使用LineBuffering，只要输出新行，它就会刷新。因此，这意味着如果您使用putStr，并且字符串本身不包含新行'\n' 字符，它将缓冲输出并等待直到写入新行以实际将输出写入控制台

您可以将其设置为NoBuffering 以立即将内容写入控制台。您可以使用hSetBuffering :: Handle -> BufferMode -> IO () 更改stdout 的缓冲设置：

import Control.Monad
import Data.Char
import System.IO

main = do
  hSetBuffering stdout NoBuffering
  forever $ do
    putStr "Give me some input: "
    l <- getLine
    putStrLn $ map toUpper l

另一种选择是仅使用hFlush :: Handle -> IO () 刷新putStr 的缓冲区，因此不更改缓冲策略本身：

import Control.Monad
import Data.Char
import System.IO

main = do $ forever
  putStr "Give me some input: "
  hFlush stdout
  l <- getLine
  putStrLn $ map toUpper l