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

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

 更新時(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)文章

最新評論

古浪县| 黑水县| 岗巴县| 合肥市| 吐鲁番市| 寻乌县| 五指山市| 阳山县| 台中县| 随州市| 红桥区| 合山市| 宜良县| 漯河市| 疏附县| 句容市| 松阳县| 冷水江市| 阿巴嘎旗| 汶上县| 来凤县| 临高县| 昭通市| 个旧市| 富源县| 资兴市| 邹城市| 闽侯县| 东海县| 佛学| 井研县| 湘西| 同德县| 大英县| 鞍山市| 壶关县| 炎陵县| 景谷| 安宁市| 屯留县| 建始县|