Web のテキストを取得


import Network.Browser
import Network.HTTP

get url = do
rsp <- simpleHTTP (getRequest url)
fmap (take 300) (getResponseBody rsp)
 
PS C:\Users\haskell> ghci
GHCi, version 6.10.2: http://www.haskell.org/ghc/ :? for help
Loading package ghc-prim ... linking ... done.
Loading package integer ... linking ... done.
Loading package base ... linking ... done.
Prelude> :load ht.hs
[1 of 1] Compiling Main ( ht.hs, interpreted )
Ok, modules loaded: Main.

*Main> putStrLn =<< get "http://www.haskell.org/"

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"">http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en"
lang="en" >
<head>
<title>Haskell - HaskellWiki</title>
<meta name="KEYWORDS" content="Haskell" />
<meta http-equ