1
我试图用UTF8字符串使用包RSS,但没有效果。 (我不想使用HXT的工程,我只想了解我的错在哪里)如何获取utf8 rss feed?
在ghci当我把“测试”我只是得到垃圾与字符,如“é”。
如果我从UTF8.readFile
读取文件中的字符串并将其发送到parseFromString
它可以工作,但是当我下载并使用getRespBody
时,它不会。
这里是我的示例代码:
import Network.HTTP (simpleHTTP, getRequest, getResponseBody)
import Data.Maybe (fromJust)
import Text.Feed.Import (parseFeedString)
import Text.RSS.Syntax
import Text.Feed.Types (Feed(..))
import Prelude hiding (putStrLn)
import Data.ByteString.Char8 (putStrLn)
import Data.ByteString.UTF8 (fromString)
siteUrl = "http://radiofrance-podcast.net/podcast09/rss_11549.xml"
type Links = [(String,String,String)]
-------------------------------------------------------------------------------
-- Main function
-------------------------------------------------------------------------------
test = getLinks siteUrl >>= mapM_ (putStrLn.fromString)
-------------------------------------------------------------------------------
-- Retrieve titles
-------------------------------------------------------------------------------
getLinks:: String -> IO [String]
getLinks url = simpleHTTP (getRequest url) >>= getResponseBody >>= parseDoc
parseDoc d = do
let RSSFeed rss = (fromJust . parseFeedString) d
items = rssItems.rssChannel $ rss
titles = map (fromJust.rssItemTitle) items
return $ titles
更新: 感谢罗马的回答,我已经修改了我的代码。以下是对可能感兴趣的任何人的修改。
import Codec.Binary.UTF8.String (decodeString) -- <-- added
getLinks:: String -> IO [String]
getLinks url = simpleHTTP (getRequest url) >>= getResponseBody >>= parseDoc.decodeString -- <-- modified
谢谢,我重读了utf8-string包和函数'decode'制作的窍门。我将更新代码以共享解决方案。 –