手机
当前位置:查字典教程网 >脚本专栏 >python >haskell实现多线程服务器实例代码
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 多线程应用介绍

python 实现堆排序算法代码

python字典多条件排序方法实例

python实现的登陆Discuz!论坛通用代码分享

python搭建简易服务器分析与实现

python脚本实现统计日志文件中的ip访问次数代码分享

python实现探测socket和web服务示例

Python yield 小结和实例

本地文件上传到七牛云服务器示例(七牛云存储)

python cookielib 登录人人网的实现代码

精品推荐
分类导航