关于gen_tcp:controlling_process函数的使用

本文详细介绍了Erlang中如何使用gen_tcp模块实现客户端与服务端的通信,并通过一个具体的例子展示了如何利用gen_server来处理socket接收到的数据。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

网上的文档:

http://blog.youkuaiyun.com/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里面处理信息。

评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值