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
命令进行安装。