haskell实现多线程服务器实例代码
时间:2021-08-06 00:08:22
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,多线程服务器
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
django执行原生SQL查询的实现
2023-11-11 13:34:04
用Python逐行分析文件方法
2022-07-10 10:17:49
用python实现打砖块小游戏
2021-11-10 02:52:06
![](https://img.aspxhome.com/file/2023/6/83716_0s.jpg)
ASP教程:制作登陆验证页面程序
2008-10-23 15:00:00
django实现日志按日期分割
2023-07-20 04:25:21
![](https://img.aspxhome.com/file/2023/5/72885_0s.jpg)
Python如何使用神经网络进行简单文本分类
2022-05-10 00:45:26
![](https://img.aspxhome.com/file/2023/5/67755_0s.jpg)
如何在Python中引用其他模块
2022-09-26 23:30:21
![](https://img.aspxhome.com/file/2023/2/69492_0s.png)
python超详细实现字体反爬流程
2022-08-30 22:39:03
![](https://img.aspxhome.com/file/2023/1/93541_0s.png)
Python使用smtplib 实现单发和群发邮件验证码
2023-07-10 13:56:50
![](https://img.aspxhome.com/file/2023/9/98989_0s.webp)
js实现QQ邮箱邮件拖拽删除功能
2023-09-07 04:31:05
ASP Access实现网站计数器(访问量)
2011-04-10 10:33:00
python实现简单多人聊天室
2022-08-17 15:04:13
![](https://img.aspxhome.com/file/2023/7/67887_0s.jpg)
Python并发之多进程的方法实例代码
2022-04-13 12:43:54
python实现学生成绩测评系统
2023-08-09 19:40:56
SQL提供的进行数据传输的实用程序—BCP
2009-01-23 13:45:00
java连接mysql数据库 java连接sql server数据库
2023-07-16 06:56:50
Python+Turtle动态绘制一棵树实例分享
2021-10-03 00:33:20
![](https://img.aspxhome.com/file/2023/6/76866_0s.gif)
基于h5py的使用及数据封装代码
2021-10-22 08:45:39
详解python之heapq模块及排序操作
2023-10-14 04:55:20
asp如何用SA-FileUp上传多个HTML文件?
2010-05-18 18:27:00