当前位置： 移动技术网 > IT编程>脚本编程>Python > haskell实现多线程服务器实例代码

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

2019年04月02日  | 移动技术网IT编程  | 我要评论

复制代码 代码如下:

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)

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网