Haskellでソケットを使ったネットワークプログラミングをしてみます．
echoクライアント †
まずはクライアントから作ってみます．
import Network
import IO
main = withSocketsDo
$ do sock <- connectTo "localhost" (PortNumber 7)
hSetBuffering sock NoBuffering
loop sock
loop h = do eof <- isEOF
if eof then return ()
else do getLine >>= hPutStrLn h
hGetLine h >>= putStrLn
loop h
コンパイルする際には
ghc Main.hs -package network
のようにしてください．
ウェブサーバ †
- httpd
Haskellでウェブサーバを書いてみました．
