gen_tcp:send/2

在一个套接字 Socket 发送一个数据包

用法：

send(Socket, Packet) -> ok | {error, Reason}

在一个套接字 Socket 发送一个数据包。

{Rand, _RandSeed} = random:uniform_s(9999, erlang:now()),
Port = 40000 + Rand,
case gen_tcp:listen(Port, [binary, {packet, 0}, {active, false}]) of
    {ok, ListenSocket} ->
        case gen_tcp:accept(ListenSocket, 1500) of
            {ok, Socket} ->
                gen_tcp:send(Socket, "test!");
            {error, SocketAcceptFail} ->
                SocketAcceptFail
        end;
    _ ->
        socket_listen_fail
end.

阿里云 - 最高1000元通用代金券立即可用