最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

haskell實(shí)現(xiàn)多線程服務(wù)器實(shí)例代碼

 更新時間:2013年11月26日 14:50:53   作者:  
這篇文章主要介紹了haskell實(shí)現(xiàn)的多線程服務(wù)器,大家參考使用吧

復(fù)制代碼 代碼如下:

module Main where

import Network.Socket
import Control.Concurrent

main :: IO ()
main = do
    sock <- socket AF_INET Stream 0
    bindSocket sock (SockAddrInet 4242 iNADDR_ANY)
    listen sock 10240
    mainLoop sock

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

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

相關(guān)文章

最新評論

蓝山县| 济宁市| 金阳县| 上犹县| 东光县| 武鸣县| 阿鲁科尔沁旗| 芦溪县| 自贡市| 湄潭县| 凤阳县| 哈尔滨市| 象山县| 海丰县| 宜城市| 绍兴县| 卓资县| 华宁县| 仁寿县| 东阿县| 青州市| 尉犁县| 青神县| 曲周县| 南乐县| 竹山县| 宜章县| 曲靖市| 句容市| 麻栗坡县| 台南县| 邢台市| 错那县| 铜陵市| 洮南市| 漠河县| 中宁县| 融水| 新源县| 大新县| 登封市|