Haskell IO symboles russes

Question

J'essayer fichier de processus qui writen par des symboles russes. Lors de la lecture et après le texte d'écrire dans le fichier que je reçois quelque chose comme:

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

Comment puis-je obtenir des symboles normaux?

Merci

Answer 1

J'ai obtenu le succès.

{-# 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

Si vous obtenez des chaînes avec des barres obliques inverses et les chiffres dans, alors il semble que vous pourriez appeler « imprimer » lorsque vous voulez appeler « putStr ».

Answer 3

Si vous traitez avec Unicode, vous pouvez essayer utf8- paquet de chaîne

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

Cependant, il n'a pas bien fonctionné dans mes fenêtres CLI garbling la sortie en raison de codepage. Je pense que cela fonctionne bien sur d'autres systèmes comme les systèmes si vos paramètres régionaux est correctement défini. écrit cependant fichier doit être Successfull sur tous les systèmes.

Mise à jour:

Un exemple sur codant pour l'utilisation de l'emballage.