westlife73

链家是一个专业提供二手房源、楼盘等信息的网站，需要二手房的朋友，链家可是个首选的资源平台。今天我们将使用HWebkit库编写一个爬虫程序，然后使用Haskell语言来采集链家平台的相关图片，快来学习一下吧。

```haskell

import Network.HTTP.Webkit

-- 定义代理主机和端口

proxyHost :: String

proxyHost = "www.duoip.cn"

proxyPort :: Int

proxyPort = 8000

-- 定义要爬取的URL

url :: String

url = "https://www.lianjia.com/"

-- 定义爬取函数

crawl :: IO ()

crawl = do

-- 创建一个Webkit实例

let client = webkitNew proxyHost proxyPort

-- 访问要爬取的URL

let response = webkitBrowse client url

-- 获取页面的HTML内容

let html = webkitPageHTML response

-- 提取图片的URL

let imgUrls = extractImgUrls html

-- 打印图片的URL

print imgUrls

-- 定义提取图片URL的函数

extractImgUrls :: String -> [String]

extractImgUrls html =

-- 使用正则表达式提取所有的标签

let imgTags = filter isImgTag $ split (== ">") html

-- 使用正则表达式提取标签中的src属性

let srcs = map extractSrc imgTags

-- 去除重复的src属性

let uniqueSrcs = nub srcs

-- 返回所有src属性

return uniqueSrcs

-- 定义检查是否为标签的函数

isImgTag :: String -> Bool

isImgTag tag =

-- 使用正则表达式检查标签是否为标签

let tags = ["<img", "

-- 去除引号和空格

let src = unwords $ words src

return src

```

以上代码中，首先代理主机和端口信息必不可少，还有就是要爬取的URL。然后，我们定义了一个爬取函数，该函数首先创建一个Webkit实例，访问要爬取的URL，获取页面的HTML内容，提取图片的URL，并打印出来。在提取图片URL的函数中，我们首先使用正则表达式提取所有的标签，然后使用正则表达式提取标签中的src属性，去除重复的src属性，最后返回所有src属性。

在检查是否为标签的函数和提取标签中的src属性的函数中，我们使用了正则表达式来匹配和提取字符串。这些函数使我们能够从HTML内容中提取出我们需要的信息，即图片的URL。内容其实不难，主要是通过代码的内容能帮到大家才是最重要的。

青天仪表

看看了，愿收录[url=http://www.chinaqingtian.com/]流量计厂家[/url]

blkj123

感谢楼主分享


重庆污水处理设备[url]http://www.cqcfjd.com/[/url]