关于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里面处理信息。