echo_server

代码

 

1. -module(echo_server).  
2. -export([start/0,stop/0]).  
3.   
4. -define(LISTEN_PORT,12345).     % 开放端口  
5. -define(MAX_CONN, 5000).        % 最大连接数  
6.   
7. start() ->  
8.     process_flag(trap_exit, true), % 设置退出陷阱  
9.     tcp_server:start_raw_server(?LISTEN_PORT,  
10.                 fun(Socket) -> socket_handler(Socket,self()) end,  
11.                 ?MAX_CONN,   
12.                 0).  
13.   
14. %% 处理数据  
15. socket_handler(Socket,Controller) ->  
16.     receive  
17.         {tcp, Socket, Bin} ->  
18.             gen_tcp:send(Socket, Bin); % echo  
19.         {tcp_closed, Socket} ->  
20.             ok;  
21.         _ ->  
22.             socket_handler(Socket,Controller)  
23.     end.  
24.   
25. stop() ->  
26.     tcp_server:stop(?LISTEN_PORT).  

基于Joe Armstrong 的tcp_server模块来做的, 试试先 :)

编译
    erl -noshell -s make all -s init stop
运行
    erl -noshell -sname coderplay -s echo_server start