采集Prestashop独立站

import Network.HTTP
import Network.HTTP.Conduit
import Data.Aeson
import Data.Text.Encoding
import Data.Text (Text)
import qualified Data.ByteString.Lazy as B

-- 代理配置
proxyHost = "jshk.com.cn"


-- 爬虫程序入口
main :: IO ()
main = do
  -- 创建HTTP代理连接
  proxy <- createProxy conduit proxyHost proxyPort
  -- 发送HTTP GET请求
  response <- liftIO $ httpGet proxy $ URL "http://example.prestashop.com"
  -- 获取响应内容
  responseBody <- liftIO $ responseBody response
  -- 将响应内容解码为JSON格式
  let json = decode responseBody
  -- 打印解析后的JSON内容
  print json

运行上述代码会通过proxyHost和proxyPort配置的代理连接访问`，并将获取的响应内容解码为JSON格式并打印。

注意，createProxy函数需要conduit库的支持，可以通过cabal install conduit命令进行安装。