大家好，前面给大家分享了关于采集人人网的相关代码的示例，今天给大家带来的也是一个服务器托管网采集人人网的爬虫实例，是通过WebBits和Haskell相结合，比较简洁，也非常易懂，让我们一起来学习一下。
```haskell
import Web.WebBits
import Network.HTTP.Conduit
import Data.Conduit
import Control.Monad.Trans.Resource
import Data.Maybe
import Data.List
import Data.Char
import System.Environment
main = do
proxy print err
Right doc -> do
let title = getTitle doc
print title
getProxy = do
proxies error "没有可用的代理服务器"
(x:xs) -> do
let proxy = "http://" ++ x
putStrLn $ "使用代理服务器: " ++ x
return proxy
getProxyList = do
url String -> IO (Either String (HtmlUrl (Sink IO ())))
fetchUrl proxy url = do
manag服务器托管网er String
getTitle = fromMaybe "未知" . listToMaybe . concatMap (getTitle') . htmlUrlElements
getTitle' :: HtmlElement -> [String]
getTitle' (Element (Name "title") _ _) = ["标题"]
getTitle' _ = []
getUrl :: String -> IO String
getUrl url = do
response error $ "请求失败: " ++ show err
Right doc -> return $ unpack $ responseBody doc
```这个程序我们明显可以看出，不同于之前的代码，首先它会获取一个可用的代理地址，然后使用这个代理地址发送HTTP请求到网站服务器。接着，程序解析HTML内容，提取标题元素，并将其打印出来，除此之外，没有其他多余的操作。我们在实际使用时根据需要进行改动，完全可以直接运用，赶紧试试吧。
服务器托管，北京服务器托管，服务器租用 http://www.fwqtg.net
机房租用，北京机房租用，IDC机房托管， http://www.fwqtg.net
感谢你阅读本文！ 这段时间在校友群里看到一些“混得比较好的”同学发言，类似于“5w的月薪很高吗？”，“我身边年薪六七十w的人不少”之类的话，加上偶尔看到一些“年薪百万很简单”的标题党文章或者视频，其实对于我来说，我根本懒得去考证这些是真是假！ 但是我觉得有必要…
