haskell实现多线程服务器实例代码
2018-10-12 13:50
666 查看
module Main whereimport Network.Socket
import Control.Concurrentmain :: IO ()
main = do
sock <- socket AF_INET Stream 0
bindSocket sock (SockAddrInet 4242 iNADDR_ANY)
listen sock 10240
mainLoop sockmainLoop :: Socket -> IO ()
mainLoop sock = do
conn <- accept sock
forkIO $ runConn conn
mainLoop sockrunConn :: (Socket, SockAddr) -> IO ()
runConn (sock, tcp) = do
sms<-recv sock 1024
peeraddr <- getPeerName sock
putStrLn sms
runConn (sock, tcp)
相关文章推荐
- haskell实现多线程服务器实例代码
- Python实现多线程下载文件的代码实例
- java swing实现的多线程实例代码教程-赛马demo
- Java编程实现多线程TCP服务器完整实例
- Java 实现多线程的3种方法:继承Thread类;实现Runnable接口;实现Callable接口。具体代码实现实例
- Python实现多线程下载文件的代码实例
- java swing实现的多线程实例代码教程-赛马demo
- Linux:多进程、多线程服务器的实现解析(有图有代码有真相!!!)
- 12种实现301网页重定向方法的代码实例(含Web编程语言和Web服务器)
- Java实现多线程断点下载实例代码(下载过程中可以暂停)
- Node.js 实现简单的接口服务器的实例代码
- Erlang实现的一个Web服务器代码实例
- Android原生实现多线程断点下载实例代码
- 使用epoll和多线程实现服务器和客户端的代码
- Java实现FTP服务器功能实例代码
- C#实现多线程的Web代理服务器实例
- 使用wsimport命令生成webService客户端,实现天气预报,代码实例(源码 DEMO)
- spring框架中多数据源创建加载并且实现动态切换的配置实例代码
- .NET实现可交互的WINDOWS服务的实例代码
- 简单实现C多线程端口扫描核心代码(转)