目标是验证“将客户端连接的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 是因为调用一个函数,参数没填对。
----------------------------------血泪分隔线-------------------------------------------
最近写个聊天室程序时才发现,上面的验证是错误的。具体的看下一篇文章吧。