用Haskell写一个采集统计数据的程序

在日常生活中我们需要统计一些人文地理相关数据，一条一条人工收集显然非常困难，而且不现实，那么今天，我就试着用haskell写一个采集统计数据的程序，测试了一下速度还不错，稳定性还不确定，至少目前还没有什么问题，一起来看看吧。

```haskell
import Network.HTTP
import Network.HTTP.Conduit
import Data.Text (Text)
import Data.Aeson (decode, Value(..))
import Data.List (head)

-- 网页代理信息
proxyHost = "duoip.cn"proxyPort = 8000

-- 网页URL
url = "http://www.stats.gov.cn/tjsj/tjbz/gkpcpd/"

-- 使用HTTP库发送GET请求，获取网页内容
response = httpGet (Proxy $ ProxyTypeHTTP $ ProxyConnect $ Just (proxyHost, proxyPort)) url

-- 将响应内容解码为Text
html = responseBody response

-- 使用BeautifulSoup解析HTML内容
import TextBS
bs :: BeautifulSoup String
bs = parseHTML html

-- 找到所有的标题标签（H1, H2, H3, H4, H5, H6）
headings :: [BeautifulSoup String]
headings = findAllByTag bs ("h1" :: [Tag])

-- 输出第一个标题
print $ head headings

这么程序只是一个基本的采集示例，实际的网页可能需要更复杂的解析。此外，爬虫需要遵守网站的相关协议，并尊重网站的版权和隐私政策。在使用网络爬虫时，应该始终尊重他人的权利，避免对网站造成不必要的负担。如果你需要爬取特定的网站的数据，最好先联系网站的管理员，了解他们的使用政策和限制。