如何取得網(wǎng)頁(yè)內(nèi)容？

luckyelement

如何GET網(wǎng)頁(yè)內(nèi)容？ 像perl的LWP。

找了半天沒(méi)有找到用哪個(gè)模塊，或者方法不對(duì)。

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的內(nèi)容， 沒(méi)有網(wǎng)頁(yè)的內(nèi)容。

flw

你這段代碼不是挺好使的嘛。
要想打印內(nèi)容的話，這樣：

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

復(fù)制代碼