使用writeFile写入中文时单个字符乱码、组合正常的问题咨询

嘿，这个问题我之前排查过，简直是编码坑中的典型案例！咱们先把你遇到的现象理清楚：

• 单个字符写入异常：writeFile "r.txt" "图"、writeFile "r.txt" "士"、writeFile "r.txt" "十"这些都会乱码
• 单个字符写入正常：writeFile "r.txt" "过"却能正确显示
• 多字符组合写入正常：writeFile "r.txt" "图画"、writeFile "r.txt" "一千十士图"完全没问题

问题根源 #

本质是系统默认编码+文本编辑器的编码自动识别逻辑在搞鬼：

1. Haskell的writeFile默认用的是系统的「本地编码」（Windows下通常是GBK/CP936，类Unix系统是UTF-8），当你直接写字符串时，它会把Unicode字符转成对应本地编码的字节流写入文件。
2. 关键问题出在编辑器这边：当文件只有极少的字节（比如单个中文对应的2-3字节），很多编辑器会优先尝试用本地编码解析，而不是UTF-8。比如Windows下，编辑器把UTF-8编码的「图」字节当成GBK解析，就会出乱码；而当有多个中文时，字节模式符合UTF-8的特征，编辑器就会自动切换到UTF-8解析，所以显示正常。至于「过」能正常显示，纯粹是巧合——它的UTF-8字节刚好和GBK中某个字符的编码重合，误打误撞显示对了。

彻底解决方法 #

别依赖系统默认编码，明确指定用UTF-8写入就万事大吉了，给你两种常用写法：

方法1：用基础库实现

不需要额外装包，直接用System.IO的API手动指定编码：

import System.IO

main :: IO ()
main = do
  -- 打开文件并指定写入模式
  withFile "r.txt" WriteMode $ \handle -> do
    -- 设置文件句柄的编码为UTF-8
    hSetEncoding handle utf8
    -- 写入目标字符
    hPutStr handle "图"

方法2：用text库（推荐）

处理文本的场景更推荐用text库，它默认就是用UTF-8处理的，写法更简洁：
首先确保你已经安装了text包（cabal install text或者stack install text），然后：

import Data.Text.IO as TextIO

main :: IO ()
main = TextIO.writeFile "r.txt" "图"

这样不管你写单个字符还是多个字符，写入的都是标准UTF-8字节流，编辑器都会正确识别，再也不会出现乱码的情况啦！

内容的提问来源于stack exchange，提问作者Z-Y.L