ansaurus

Question

Answer 1

+2 A:

If you deal with Unicode, you might try 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 "Вася Пупкин"

However it didn't work well in my windows CLI garbling the output because of codepage. I expect it to work fine on other Unix-like systems if your locale is set correctly. However writing to file should be successfull on all systems.

UPDATE:

An example on encoding package usage.

Yasir Arsanukaev 2010-05-15 13:19:30

He's not dealing with unicode. According to firefox the page he linked is encoded in Windows-1251.

sepp2k 2010-05-15 13:21:52

Then [encoding package](http://hackage.haskell.org/package/encoding) may be useful, it has [System.Encoding.CP1251](http://hackage.haskell.org/packages/archive/encoding/0.6.3/doc/html/Data-Encoding-CP1251.html).

Yasir Arsanukaev 2010-05-15 13:28:51

I have some problems to install this package on windows. Can not find library i try like this:cd c:\Users\test_8\Desktop\encoding-0.6.3runhaskell Setup.hs configure --extra-include-dirs="c:\Users\test_8\Desktop\encoding-0.6.3" --extra-lib-dirs="c:\Users\test_8\Desktop\encoding-0.6.3"but get this:Setup.hs: Missing dependency on a foreign library:* Missing header file: system_encoding.h

Anton 2010-05-15 14:21:43

required localinfo.h. I can not find it.

Anton 2010-05-16 06:57:25

@Anton: Please, paste your sources somewhere, for example [here](http://freebsd.pastebin.com/) if they aren't so huge.

Yasir Arsanukaev 2010-05-16 07:15:35

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

Anton 2010-05-16 10:53:02

Sorry. i do not find how format code in comment

Anton 2010-05-16 10:53:52

This is does not work:{-# LANGUAGE ImplicitParams #-}import Text.HTML.TagSoupimport Text.HTML.Downloadimport Prelude hiding (appendFile)import System.IO.Encodingimport Data.Encoding.CP1251main :: IO ()main = do tags <- fmap parseTags $ openURL "http://www.trade.su/search?ext=1" let r = partitions (~== "<input type=checkbox>") tags !! 1 let ?enc = CP1251 appendFile "out" (show r)

Anton 2010-05-16 12:46:59

I've just given up installing encoding package on Windows, haven't GHC for Unix on hand. This is interesting how you managed to install it.

Yasir Arsanukaev 2010-05-16 13:24:25

I change OS on Ubuntu ;).

Anton 2010-05-16 13:27:22

I Could not install on Windows too.

Anton 2010-05-16 13:28:31

@Anton: Mate, I can no longer help you, since I don't have GHC for *nix, sorry. I wish google will help you. And it would be nice if you answered yourself here. ;)

Yasir Arsanukaev 2010-05-16 13:37:28

Thanks. I can not understand reason of my problem. Hence i do not know what i need find in Google.

Anton 2010-05-16 13:37:53

@Anton: Also make sure that `appendFile` you use is imported from `System.IO.Encoding` rather `System.IO`. Try to use `System.IO.Encoding.appendFile` call.

Yasir Arsanukaev 2010-05-16 13:45:35

Answer 2

+3 A:

If you are getting strings with backslashes and numbers in, then it sounds like you might be calling "print" when you want to call "putStr".

psmears 2010-05-15 16:23:34

Answer 3

A:

I have got success.

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

Anton 2010-05-16 15:54:08

ansaurus

tags:

views:

answers:

Haskell IO russian symbols

related questions