Erlang之一个简单的TCP服务器

最新推荐文章于 2023-09-20 23:38:08 发布

天天爆零

最新推荐文章于 2023-09-20 23:38:08 发布

阅读量551

点赞数 1

CC 4.0 BY-SA版权

分类专栏： erlang

本文链接：https://blog.youkuaiyun.com/fbher/article/details/91559379

erlang 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了如何使用Erlang编写一个简单的TCP服务器，包括顺序服务器和并行服务器的实现，并提供了客户端的交互示例，展示了Erlang在并发处理上的优势。

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

简单TCP服务器代码：

-module(my_socket_server).
-export([start/0,loop/1]).
start() ->
	{ok, Listen} = gen_tcp:listen(2345, [binary, {packet, 4},%自定义打包规则，生成一个监听2345端口的socket
													{reuseaddr, true},
													{active, true}]),
	{ok, Socket} = gen_tcp:accept(Listen),%生存一个新的Socket
	gen_tcp:close(Listen),%把该监听关闭，不再生成新的socket
	loop(Socket).

loop(Socket) ->
	receive
		{tcp, Socket, Bin} ->
			io:format("Server received binary = ~p~n",[Bin]),
			Str = binary_to_term(Bin),%解码
			io:format("Server (unpacked) ~p~n",[Str]),
			Reply = lib_misc:string2value(Str),
			io:format('Server replying = ~p~n',[Reply]),
			gen_tcp:send(Socket, term_to_binary(Reply)),%编码
			loop(Socket);
		{tcp_closed, Socket} ->
			io:format("Server socket close~n")
	end.

顺序服务器：

-module(my_socket_server2).
-compile(export_all).
start() ->
	{ok, Listen} = gen_tcp:listen(2345, [binary, {packet, 4},%自定义打包规则，生成一个监听2345端口的socket
													{reuseaddr, true},
													{active, true}]),
	seq_loop(Listen).

seq_loop(Listen) ->
	{ok, Socket} = gen_tcp:accept(Listen),
	loop(Socket),
	seq_loop(Listen).

loop(Socket) ->
	receive
		{tcp, Socket, Bin} ->
			io:format("Server received binary = ~p~n",[Bin]),
			Str = binary_to_term(Bin),%解码
			io:format("Server (unpacked) ~p~n",[Str]),
			Reply = lib_misc:string2value(Str),
			io:format('Server replying = ~p~n',[Reply]),
			gen_tcp:send(Socket, term_to_binary(Reply)),%编码
			loop(Socket);
		{tcp_closed, Socket} ->
			io:format("Server socket close~n")
	end.

并行服务器：

-module(my_socket_server3).
-compile(export_all).
start() ->
	{ok, Listen} = gen_tcp:listen(2345, [binary, {packet, 4},%自定义打包规则，生成一个监听2345端口的socket
													{reuseaddr, true},
													{active, true}]),
	spawn(fun() -> par_connect(Listen) end).

par_connect(Listen) ->
	{ok, Socket} = gen_tcp:accept(Listen),
	spawn(fun() -> par_connect(Listen) end),
	loop(Socket).

loop(Socket) ->
	receive
		{tcp, Socket, Bin} ->
			io:format("Server received binary = ~p~n",[Bin]),
			Str = binary_to_term(Bin),%解码
			io:format("Server (unpacked) ~p~n",[Str]),
			Reply = lib_misc:string2value(Str),
			io:format('Server replying = ~p~n',[Reply]),
			gen_tcp:send(Socket, term_to_binary(Reply)),%编码
			loop(Socket);
		{tcp_closed, Socket} ->
			io:format("Server socket close~n")
	end.

客户端：

-module(my_socket_client).
-compile(export_all).
start(Str) ->
	{ok, Socket} = 
		gen_tcp:connect('localhost', 2345,
					[binary, {packet, 4}]),
	ok = gen_tcp:send(Socket, term_to_binary(Str)),
	receive
		{tcp, Socket, Bin} ->
			io:format("Client receive binary = ~p~n",[Bin]),
			Val = binary_to_term(Bin),
			io:format("Client result = ~p~n",[Val]),
			gen_tcp:close(Socket)
		end.

-module(lib_misc).

-export([string2value/1]). 

string2value(L) -> string2value(L, []).
string2value([], N)    -> list_to_tuple(lists:reverse(N));
string2value([H|T], N) -> string2value(T, [H|N]).