使用Erlang实现TCP服务器和客户端通信

本示例代码展示了如何使用Erlang编写TCP服务器和客户端间的通信。该示例代码通过创建socket套接字实现通信，包括发送和接收数据。在该示例代码中，服务器会监听客户端的请求并能够接受多个客户端的连接请求。

-module(tcp_server).
-export([start/0, loop/1]).

start() ->
    {ok, ListenSocket} = gen_tcp:listen(1234, [binary, {active, true}]),
    loop(ListenSocket).

loop(ListenSocket) ->
    {ok, ClientSocket} = gen_tcp:accept(ListenSocket),
    spawn(fun() -> handle_client(ClientSocket) end),
    loop(ListenSocket).

handle_client(ClientSocket) ->
    inet:setopts(ClientSocket, [{active, once}]),
    receive
        {tcp, ClientSocket, Data} ->
            io:format("Received data: ~s~n", [Data]),
            gen_tcp:send(ClientSocket, Data),
            handle_client(ClientSocket);
        {tcp_closed, ClientSocket} ->
            io:format("Client closed connection~n")
    end.

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