haskell实现多线程服务器实例代码
摘要：复制代码代码如下:moduleMainwhereimportNetwork.SocketimportControl.Concurrentma...
复制代码 代码如下:
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)
【haskell实现多线程服务器实例代码】相关文章：
★ python发送邮件的实例代码(支持html、图片、附件)
★ python脚本实现统计日志文件中的ip访问次数代码分享
下一篇：
详细介绍Python语言中的按位运算符