erlang socket

目标是验证“将客户端连接的socket绑定到一个gen_server后，发送到socket 的消息将由gen_server的handle_info/2 处理”。

接收客户端socket 连接的server:

 

-module("myserver").
-export([start/2],[stop/0]).
start()->
   	%%监听端口
	{ok,ListenSocket}=gen_tcp:listen(1234,[binary,{packet,4}, 
 {reuseaddr,true}, 
 {active,true}]),
	%%获取客户端链接	
	{ok,Socket} = gen_tcp:accept(ListenSocket),
	%%关闭监听	
	gen_tcp:close(ListenSocket),
	%%启动一个gen_server	
	{ok,Pid}=socketManager:start_link(),
	%%将客户端链接socket 绑定到gen_server	
	gen_tcp:controlling_process(Socket,Pid).

持有客户端连接socket的gen_server:

 

 

-module(socketManager).
-behaviour(gen_server).
-export([init/1,handle_call/3,handle_cast/2,handle_info/2,terminate/2,code_change/3,start_link/0]).
-record(state,{}).

start_link()->
	gen_server:start_link({local,mymanager},?MODULE,[],[]).
init([])->
	{ok,#state{}}.
handle_call(_Request,_From,State)->
	{reply,ok,State}.
handle_cast(_Msg,State)->
	{noreply,State}.
handle_info(Info,State)->
	io:format("msg received: ~n",[]),
	io:format("input msg is: ~w~n",[Info]),
	{noreply,State}.
terminate(_Reason,_State)->
	ok.
code_change(_Old,State,_Ext)->
	{ok,State}.
	

 

编译以上两个文件，并运行myserver:start()，然后直接telnet 1234 这个端口，任意输入字符，有信息打印出来则OK。

 

验证结果证明：“ 将客户端连接的socket绑定到一个gen_server后，发送到socket 的消息将由gen_server的handle_info/2 处理” 是成立的。

 

mark：编译期间出现过一个 warning: wrong number of arguments infomart call 是因为调用一个函数，参数没填对。

----------------------------------血泪分隔线-------------------------------------------

最近写个聊天室程序时才发现，上面的验证是错误的。具体的看下一篇文章吧。