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

yipeiwu_com6年前服务器

复制代码 代码如下:

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)

相关文章

Apache服务器下防止图片盗链的办法

先解释一下图片防盗链和转向:   图片防盗链有什么用?   防止其它网站盗用你的图片,浪费你宝贵的流量。   图片转向有什么用?   如果你的网站以图片为主,哪天发现月底...

ffmpeg通过参数设置调整画质清晰度

ffmpeg通过参数设置调整画质清晰度

H.264有四种画质级别,分别是baseline, extended, main, high:1、Baseline Profile:基本画质。支持I/P 帧,只支持无交错(Progressive)和C...

php上传图片客户端和服务器端实现方法

本文实例讲述了php上传图片客户端和服务器端实现方法。分享给大家供大家参考。具体如下: 前台表单代码 <form name="form1" method="post" acti...

python检测服务器是否正常

经常使用python检测服务器是否能ping通, 程序是否正常运行(检测对应的端口是否正常) 以前使用shell脚本的写法如下:复制代码 代码如下:PINGRET=$( ping www...

python搭建服务器实现两个Android客户端间收发消息

本文为大家分享了python搭建服务器实现两个Android客户端间收发消息,供大家参考,具体内容如下 python服务器 # coding:utf-8 import socket...