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