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)
相关文章
详细整理python 字符串(str)与列表(list)以及数组(array)之间的转换方法
这篇文章主要介绍了详细整理python 字符串(str)与列表(list)以及数组(array)之间的转换方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学习学习吧2019-08-08
最新评论