Haskell IO俄罗斯符号

Question

我试着用俄​​语符号写的进程文件。当读写文本后提交我得到这样的：

“\ 160 \ 192 \ 231 \ 229 \ 240 \ 225 \ 224 \ 233 \ 228 \ 230 \ 224 \ 237”

我怎么能得到正常的符号？

感谢

Answer 1

我已经成功了。

{-# LANGUAGE ImplicitParams #-} 

import Network.HTTP 
import Text.HTML.TagSoup 
import Data.Encoding 
import Data.Encoding.CP1251 
import Data.Encoding.UTF8 

openURL x = do 
     x <- simpleHTTP (getRequest x) 
     fmap (decodeString CP1251) (getResponseBody x) 

main :: IO() 
main = do 
    tags <- fmap parseTags $ openURL "http://www.trade.su/search?ext=1" 
    let TagText r = partitions (~== "<input type=checkbox>") tags !! 1 !! 4 
    appendFile "out" r 

Answer 2

如果处理Unicode的，你可以尝试utf8-string package

import System.IO hiding (hPutStr, hPutStrLn, hGetLine, hGetContents, putStrLn) 
import System.IO.UTF8 
import Codec.Binary.UTF8.String (utf8Encode) 
main = System.IO.UTF8.putStrLn "Вася Пупкин" 

但是它并没有在我的Windows很好地工作CLI错乱，因为代码页的输出。如果您的语言环境设置正确，我希望它能在其他类Unix系统上正常工作。但是，写入文件应该在所有系统上都是成功的。

更新：对编码包使用

An example。

Answer 3

如果你正在使用反斜杠和数字的字符串，那么当你想调用“putStr”时，你可能会调用“print”。