erlang实现的一个echo服务器

最新推荐文章于 2025-08-09 18:35:14 发布

原创最新推荐文章于 2025-08-09 18:35:14 发布 · 置顶 · 471 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#erlang #tcp #server #服务器 #测试

erlang 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了一个使用Erlang实现的简单Echo服务器程序。该服务器通过创建多个进程来处理客户端连接请求，并能够响应客户端发送的数据。此外，还提供了一个客户端测试代码用于验证服务器的功能。

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

这是一个erlang实现的echo服务器，通过实现不同的process，可以实现不同的服务器功能。还有一个测试的代码。 
-module(server).
-export([start/2,start_servers/2,loop/1,process/1,server/1]).
start(Num,LPort) ->
    case gen_tcp:listen(LPort,[{active, false},{packet,2}]) of
        {ok, ListenSock} ->
            start_servers(Num,ListenSock),
            {ok, Port} = inet:port(ListenSock),
            Port;
        {error,Reason} ->
            {error,Reason}
    end.
start_servers(0,_) ->
    ok;
start_servers(Num,LS) ->
    spawn(?MODULE,server,[LS]),
    start_servers(Num-1,LS).
server(LS) ->
    case gen_tcp:accept(LS) of
        {ok,S} ->
            loop(S),
            server(LS);
        Other ->
            io:format("accept returned ~w - goodbye!~n",[Other]),
            ok
    end.
loop(S) ->
    inet:setopts(S,[{active,once}]),
    receive
        {tcp,S,Data} ->
            Answer = process(Data), % Not implemented in this example
            gen_tcp:send(S,Answer),
            loop(S);
        {tcp_closed,S} ->
            io:format("Socket ~w closed [~w]~n",[S,self()]),
            ok
    end.
process(Data) ->
 ["server:"|Data]. 
 
客户端测试代码：
-module(client).
-export([start/2,loop/3]).
loop(0, _, _) ->
 ok;
loop(Num,PortNo,Message) ->
 start(PortNo,Message),
 loop(Num-1,PortNo,Message).
 
start(PortNo,Message) ->
    {ok,Sock} = gen_tcp:connect("localhost",PortNo,[{active,false},
                                                    {packet,2}]),
    gen_tcp:send(Sock,Message),
    A = gen_tcp:recv(Sock,0),
    gen_tcp:close(Sock),
    A.