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.