westlife73

36kr是一个专注科技创投领域的信息平台，对于需要投资创业的人来说，上面有非常不错的投资相关信息。今天我们就使用HXT库来编写一个36kr的采集程序。下面是代码示例，一起学习一下吧。

```haskell

import Network.HTTP.HXT

import qualified Data.ByteString.Char8 as BS

-- 设置代理服务器

setProxy :: String -> String -> IO ()

setProxy proxy_host proxy_port = do

let proxy = proxyHost $ Just proxy_host

port = proxyPort $ Just proxy_port

setProxySettings proxy port

-- 下载网页内容

download :: String -> IO BS.ByteString

download url = do

setProxy "www.duoip.cn" "8000"

response <- get url

BS.readFile $ BS.pack $ responseBody response

-- 主程序

main :: IO ()

main = do

content <- download "https://36kr.com/"

print content

```

这个程序首先设置了代理服务器，然后使用get函数从指定的URL下载网页内容。最后，它打印出下载的内容。注意，由于HXT库使用的是Unicode编码，所以我们在读取和写入文件时需要使用BS包来处理字节字符串。此外，这个程序只是一个采集程序，没有处理可能出现的错误和异常情况。在实际使用中，我们可能需要添加更多的错误处理代码来确保程序的稳定性。以上内容希望对你有所帮助。如果需要进一步的解释或指导，请随时告诉我。