>  기사  >  백엔드 개발  >  haskell实现多线程服务器实例代码

haskell实现多线程服务器实例代码

WBOY
WBOY원래의
2016-06-06 11:28:161113검색

代码如下:


module Main where

import Network.Socket
import Control.Concurrent

main :: IO ()
main = do
    sock     bindSocket sock (SockAddrInet 4242 iNADDR_ANY)
    listen sock 10240
    mainLoop sock

mainLoop :: Socket -> IO ()
mainLoop sock = do
    conn     forkIO $ runConn conn
    mainLoop sock

runConn :: (Socket, SockAddr) -> IO ()
runConn (sock, tcp) = do
    sms    peeraddr     putStrLn sms
    runConn (sock, tcp)

성명:
본 글의 내용은 네티즌들의 자발적인 기여로 작성되었으며, 저작권은 원저작자에게 있습니다. 본 사이트는 이에 상응하는 법적 책임을 지지 않습니다. 표절이나 침해가 의심되는 콘텐츠를 발견한 경우 admin@php.cn으로 문의하세요.