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でウェブサーバを書いてみました.

コメント


お名前: