使用主动套接字方式实现简单套接字

最新推荐文章于 2021-08-09 17:48:09 发布

原创最新推荐文章于 2021-08-09 17:48:09 发布 · 628 阅读

0 ·

CC 4.0 BY-SA版权

erlang 专栏收录该内容

31 篇文章

订阅专栏

本文介绍了一个基于Erlang语言实现的简单聊天服务器代码示例。通过使用gen_tcp模块，该服务器能够监听指定端口并接受来自客户端的连接请求。文章展示了如何处理客户端连接、接收客户端发送的数据，并通过递归函数确保可以接收到客户端发送的多条消息。

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

-module(chat_server_active).

%% ====================================================================
%% API functions
%% ====================================================================
-export([start/0]).
-define(DEFPORT, 1156).
-define(TCP_OPTIONS, [binary, {packet, 0}, {active, true}]).


%% ====================================================================
%% Internal functions
%% ====================================================================
start() -> 
	{ok, Listen} = gen_tcp:listen(?DEFPORT, ?TCP_OPTIONS),
	do_accept(Listen).

do_accept(Listen) ->
	{ok, Socket} = gen_tcp:accept(Listen),
	io:fwrite("Welcome ~p~n", [Socket]),
%% 	%% 接收多个客户端的链接，无法获取客户端发送的消息	(recv_loop()中不论是否存在尾递归时）
%% 	spawn(fun() -> recv_loop(Socket) end),
%% 	do_accept(Listen).
%% 	%% 接收多个客户端的链接，每个客户端只能获取第一条消息	(recv_loop()中无尾递归时）
%% 	%% 接收一个客户端的链接，可获取该客户端的多条消息	(recv_loop()中存在尾递归时）
%% 	recv_loop(Socket),
%% 	do_accept(Listen).
%% 	%% 接收多个客户端的链接，每个客户端只能获取第一条消息	(recv_loop()中无尾递归时）
%% 	%% 接收一个客户端的链接，可获取该客户端的多条消息	(recv_loop()中存在尾递归时）
%% 	recv_loop(Socket),
%% 	spawn(fun() -> do_accept(Listen) end).
	%% 接收多个客户端，每个客户端只能获取第一条消息		(recv_loop()中无尾递归)
	%% 接收多个客户端，每个客户端都可以获取多条消息		(recv_loop()中存在尾递归)
	spawn(fun() -> do_accept(Listen) end),
	recv_loop(Socket).
%% 	%% 接收多个客户端的链接，无法获取任一客户端发送的消息	(recv_loop()中存在尾递归时）
%% 	spawn(fun() -> recv_loop(Socket) end),
%% 	spawn(fun() -> do_accept(Listen) end).

recv_loop(Socket) ->
%% 	io:fwrite("~p recvint...~n", [Socket]),
	receive
		{tcp, Socket, Data} ->
			io:fwrite("~p:~p~n", [Socket, binary_to_term(Data)]),
			recv_loop(Socket);		%% 确保获取多条客户端信息
		{tcp_closed, Socket} ->
			io:fwrite("tcp send closed!~n")
	end.

不同的递归，结果差别很大。谁能详细解释一下？

=========================================================================================

-module(chat_client).

%% ====================================================================
%% API functions
%% ====================================================================
-export([start/0]).
-define(DEFPORT, 1156).


%% ====================================================================
%% Internal functions
%% ====================================================================
start() -> 
	{ok, Socket} = gen_tcp:connect("localhost", ?DEFPORT, [binary, {packet, 0}]),
	do_talk(Socket).

do_talk(Socket) ->
	Msg = io:get_line("Input your msg:"),
	gen_tcp:send(Socket, term_to_binary(Msg)),
	do_talk(Socket).