带有非英文字符的 Haskell IO

Question

看看这个，我正在尝试

appendFile "out" $ show 'д'

“д”是俄语字母表中的字符。 之后“out”文件包含：

'\1076'

我的理解是字符“д”的unicode数字代码。为什么会出现这样的情况呢？我怎样才能得到我的角色的正常表现？

有关更多信息，效果很好：

appendFile "out"  "д"

谢谢。

Answer 1

show 对 ASCII 范围之外的所有字符（以及 ASCII 范围内的一些字符）进行转义，因此不要使用 show。

因为“д”工作正常，所以就使用它。如果你不能，因为 д 实际上在变量内部，你可以使用 [c] （其中 c 是包含该字符的变量。如果你需要用单引号将它引起来（就像 show 那样） ），您可以使用['\'', c, '\'']。

Answer 2

阅读您对我的评论的回复后，我认为您的情况是您有一些数据结构，可能是 [(String,String)] 类型，并且您希望输出它以用于调试目的。使用 show 会很方便，但它会转义非 ASCII 字符。

这里的问题不在于 unicode，您需要一个能够正确格式化数据以供显示的函数。我认为 show 不是正确的选择，部分原因是转义某些字符存在问题。您需要的是像 Show 这样的类型类，但它显示数据以供读取而不是转义字符。也就是说，您需要一个漂亮的打印机，它是一个提供格式化数据以供显示的函数的库。 Hackage 上有几种漂亮的打印机，我会看看 uulib 或 wl-pprint 启动。我认为两者都适合，无需太多工作。

这是 uulib 工具的示例。使用 Pretty 类型类代替 Show，该库附带了许多有用的实例。

import UU.PPrint

-- | Write each item to StdOut
logger :: Pretty a => a -> IO ()
logger x = putDoc $ pretty x <+> line

在 ghci 中运行：

Prelude UU.PPrint> logger 'Д'
Д 
Prelude UU.PPrint> logger ('Д', "other text", 54)
(Д,other text,54) 
Prelude UU.PPrint> 

如果您想输出到文件而不是控制台，可以使用 hPutDoc 函数输出到句柄。您还可以调用 renderSimple 来生成 SimpleDoc，然后在构造函数上进行模式匹配来处理输出，但这可能会更麻烦。无论你做什么，都要避免 show：

Prelude UU.PPrint> show $ pretty 'Д'
"\1044"

你也可以编写自己的类似于 show 的类型类，但按照你喜欢的格式进行格式化。如果您选择这条路线，Text.Printf 模块会很有帮助。

Answer 3

使用数据.文本。它为 IO 提供区域设置感知和编码支持。

Answer 4

在网络上快速搜索“UTF Haskell”应该会为您提供良好的链接。最推荐的包可能是 text 包。

import Data.Text.IO as UTF
import Data.Text as T

main = UTF.appendFile "out"  (T.pack "д")

Answer 5

要按节目显示国家字符，请输入您的代码：

{-# LANGUAGE FlexibleInstances #-}

instance {-# OVERLAPPING #-} Show String where
    show = id

您可以尝试：

*Main> show "ł"
ł
*Main> show "ą"
ą
*Main> show "ę"
ę
*Main> show ['ę']
ę
*Main> show ["chleb", "masło"]
[chleb,masło]
*Main> data T = T String deriving (Show)
*Main> t = T "Chleb z masłem"
*Main> t
T Chleb z masłem
*Main> show t
T Chleb z masłem

Answer 6

我之前的解决方案中没有引号。另外，我现在把代码放在模块中，模块必须导入到你的程序中。

{-# LANGUAGE FlexibleInstances #-}

module M where

instance {-# OVERLAPPING #-} Show String where
    show x = ['"'] ++ x ++ ['"']

给初学者的信息：请记住，该节目不显示任何内容。 show 将数据转换为带有附加格式字符的字符串。

我们可以在WinGHCi中尝试：
通过 WinGHCi 自动

*M> "ł"
"ł"
*M> "ą"
"ą"
*M> "ę"
"ę"
*M> ['ę']
"ę"
*M> ["chleb", "masło"]
["chleb","masło"]
*M> data T = T String deriving (Show)
*M> t = T "Chleb z masłem"

或手动

*M> (putStrLn . show) "ł"
"ł"
*M> (putStrLn . show) "ą"
"ą"
*M> (putStrLn . show) "ę"
"ę"
*M> (putStrLn . show) ['ę']
"ę"
*M> (putStrLn . show) ["chleb", "masło"]
["chleb","masło"]
*M> data T = T String deriving (Show)
*M> t = T "Chleb z masłem"
*M> (putStrLn . show) t
T "Chleb z masłem"

在要显示的代码中：

putStrLn "ł"
putStrLn "ą"
putStrLn "ę"
putStrLn "masło"
(putStrLn . show) ['ę']
(putStrLn . show) ["chleb", "masło"]
data T = T String deriving (Show)
t = T "Chleb z masłem"
(putStrLn . show) t

我正在为 Google 添加标签“polskie znaki haskell”。