关于gen_tcp:controlling_process函数的使用

网上的文档：

http://blog.csdn.net/skyman_2001/article/details/6582938

http://erlang-china.org/misc/using-gen_tcp-controlling_process.html

对于该函数的理解：

最初紧紧知道该函数是将一个Socket和一个进程的Pid绑定在一起，但是对于“发送给这个Socket的信息就相当于发送到绑定的进程Pid”不是很理解。如果绑定的Pid是一个gen_server或者是个gen_fsm该怎么接受发送到这个Socket上的数据。百思不得其解啊，后来问了一个大牛，才知道可以在handle_info函数里面接受数据，此时对上面的话立刻理解。

测试代码如下：

client：

-module(client).-compile(export_all).connect(Port)->    {ok, Socket} = gen_tcp:connect("localhost", Port, [binary, {packet, 0}]),    Socket.say(Socket, Data) ->    ok = gen_tcp:send(Socket, term_to_binary(Data)),    receive{tcp, Socket, Bin} ->    io:format("Client received: ~p~n", [binary_to_term(Bin)])   % gen_tcp:close(Socket)    end.

server：采用的是非阻塞模式，｛active, true｝。gen_tcp:controlling_process() 函数也相当重要。

-module(server).-compile(export_all).start(Port) ->    {ok, Listen} = gen_tcp:listen(Port, [binary, {packet, 0},                     {reuseaddr, true},                    {active, true}]),    spawn(fun() -> loop(Listen) end).loop(Listen) ->    {ok, Socket} = gen_tcp:accept(Listen),    {ok, Pid} = player:start_link(),    gen_tcp:controlling_process(Socket, Pid),    loop(Listen).

player就是相应起的gen_server。

%%--------------------------------------------------------------------%% @doc%% Starts the server%%%% @spec start_link() -> {ok, Pid} | ignore | {error, Error}%% @end%%--------------------------------------------------------------------start_link() ->    gen_server:start_link(?MODULE, [], []).

该函数可能需要更改，因为每次spwan一个新的server的时候，默认是要为该server注册名字的，所以多个连接时就会出错。

%%--------------------------------------------------------------------%% @private%% @doc%% Handling all non call/cast messages%%%% @spec handle_info(Info, State) -> {noreply, State} |%%                                   {noreply, State, Timeout} |%%                                   {stop, Reason, State}%% @end%%--------------------------------------------------------------------handle_info({tcp, Socket, Data}, State)->    io:format("Pid:~p Socket:~p Data:~p~n", [self(), Socket, binary_to_term(Data)]),    gen_tcp:send(Socket, term_to_binary("haha")),    {noreply, State};handle_info(_Info, State) ->    {noreply, State}.

该函数是最重要的，这里面可以收到这个gen_server对应的socket收到的消息。

总结：

（1）、gen_tcp:controlling_process

（2）、在handle_info里面处理信息。