如何取得网页内容？

luckyelement

如何GET网页内容？ 像perl的LWP。

找了半天没有找到用哪个模块，或者方法不对。

import Network.HTTP import Network.URI import System.IO import Data.Maybe import Network.Browser main = do         putStrLn "hello"         b <- browse $ request urlall         putStrLn (show b) urlall = Request {rqURI = fromJust $ parseURI "http://www.google.com:80"                   ,rqMethod = GET                   ,rqHeaders = []                   ,rqBody = "" }

得到head的内容， 没有网页的内容。

flw

你这段代码不是挺好使的嘛。
要想打印内容的话，这样：

1. main = do
   
2.     (_, Response {rspBody=body}) <- browse $ request urlall
   
3.     print body

复制代码