使用Erlang编写TCP服务器和客户端通信

这个示例代码演示了如何使用Erlang编写一个简单的TCP服务器和客户端程序，以及如何在它们之间进行双向通信。实现方式使用Erlang的gen_tcp模块来创建和管理TCP连接，并使用Erlang的消息传递机制在客户端和服务器之间发送消息。

%% TCP服务器代码
-module(tcp_server).
-export([start/0]).

start() ->
    %% 创建TCP套接字
    {ok, ListenSocket} = gen_tcp:listen(1234, [{active, true}]),
    %% 无限循环等待客户端连接
    loop(ListenSocket).

loop(ListenSocket) ->
    %% 接受客户端连接
    {ok, ClientSocket} = gen_tcp:accept(ListenSocket),
    %% 关闭被动接收状态
    gen_tcp:controlling_process(ClientSocket, self()),
    %% 接收客户端消息
    case gen_tcp:recv(ClientSocket, 0) of
        %% 如果客户端发送了消息，则回复它
        {ok, Data} ->
            gen_tcp:send(ClientSocket, Data),
            loop(ListenSocket);
        %% 如果客户端关闭了连接，则关闭客户端套接字并继续等待下一个连接
        {error, closed} ->
            gen_tcp:close(ClientSocket),
            loop(ListenSocket)
    end.

%% TCP客户端代码
-module(tcp_client).
-export([start/1]).

start(ServerAddress) ->
    %% 创建TCP连接
    {ok, Socket} = gen_tcp:connect(ServerAddress, 1234, []),
    %% 发送消息给服务器
    gen_tcp:send(Socket, "Hello, server!"),
    %% 等待服务器回复
    receive
        {tcp, Socket, Data} ->
            io:format("Received: ~s", [Data])
    end,
    %% 关闭TCP连接
    gen_tcp:close(Socket).

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com