网络编程
位置:首页>> 网络编程>> Python编程>> haskell实现多线程服务器实例代码

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

  发布时间:2021-08-06 00:08:22 

标签:haskell,多线程服务器


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)

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com