链家是一个专业提供二手房源、楼盘等信息的网站，需要二手房的朋友，链家可是个首选的资源平台。今天我们将使用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。内容其实不难，主要是通过代码的内容能帮到大家才是最重要的。