haskell实现多线程服务器实例代码
2013-11-26 00:00
501 查看
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实现多线程下载文件的代码实例
- Java实现FTP服务器功能实例代码
- Java实现多线程断点下载实例代码(下载过程中可以暂停)
- Java 实现多线程的3种方法:继承Thread类;实现Runnable接口;实现Callable接口。具体代码实现实例
- 12种实现301网页重定向方法的代码实例(含Web编程语言和Web服务器)
- java swing实现的多线程实例代码教程-赛马demo
- Erlang实现的一个Web服务器代码实例
- Linux:多进程、多线程服务器的实现解析(有图有代码有真相!!!)
- Python实现多线程下载文件的代码实例
- java swing实现的多线程实例代码教程-赛马demo
- 使用epoll和多线程实现服务器和客户端的代码
- C#实现多线程的Web代理服务器实例
- Java编程实现多线程TCP服务器完整实例
- Android原生实现多线程断点下载实例代码
- Node.js 实现简单的接口服务器的实例代码
- socket 简单实例1.服务器代码
- iOS使用自带的UIViewController实现qq加号下拉菜单的功能(实例代码)
- 插入排序(正序、倒序)-c++代码实现及运行实例结果
- linux shell中实现循环日期的实例代码