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

本示例展示了如何在Erlang中使用gen_tcp模块实现TCP服务器-客户端通信。代码分别实现了服务器和客户端的监听和发送。

服务器端：

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

start(Port) ->
    {ok, Listen} = gen_tcp:listen(Port, [binary, {packet, 0}, {reuseaddr, true}, {active, true}]),
    loop(Listen).

loop(Listen) ->
    case gen_tcp:accept(Listen) of
        {ok, Socket} ->
            spawn(fun() ->
                handle(Socket),
                gen_tcp:close(Socket)
            end),
            loop(Listen);
        {error, _} ->
            loop(Listen)
    end.

handle(Socket) ->
    case gen_tcp:recv(Socket, 0) of
        {ok, Data} ->
            io:format("Received data: ~p~n", [Data]),
            gen_tcp:send(Socket, Data);
        {error, Reason} ->
            io:format("Error: ~p~n", [Reason])
    end.

客户端：

-module(tcp_client).
-export([start/2]).

start(Host, Port) ->
    {ok, Socket} = gen_tcp:connect(Host, Port, [binary, {packet, 0}, {active, true}]),
    loop(Socket).

loop(Socket) ->
    io:format("Enter a message: "),
    Data = io:get_line(""),
    gen_tcp:send(Socket, Data),
    case gen_tcp:recv(Socket, 0) of
        {ok, ReceivedData} ->
            io:format("Received data: ~p~n", [ReceivedData]),
            loop(Socket);
        {error, Reason} ->
            io:format("Error: ~p~n", [Reason])
    end.

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