我有侦听 Ip:Port 的 TCP 服务器。
listen(Ip, Port) ->
Opts = [
binary,
{active, false},
{packet, 0},
{reuseaddr, true},
{ip, Ip}
],
case gen_tcp:listen(Port, Opts) of
{ok, ListenSock} ->
?MODULE:loop_accept(ListenSock);
{error, Reason} ->
exit(Reason)
end.
loop_accept(ListenSock) ->
{ok, Sock} = gen_tcp:accept(ListenSock),
?MODULE:loop(Sock),
?MODULE:loop_accept(ListenSock).
loop(Sock) ->
case gen_tcp:recv(Sock, 0) of
{ok, Data} ->
gen_tcp:send(Sock, [<<"Response: ">>, Data]),
?MODULE:loop(Sock);
{error, Reason} ->
ok
end.
任务:当一个客户端连接到 Ip:Port(例如telnet Ip Port
)时,另一个尝试连接的客户端必须被丢弃。换句话说,独占使用 Ip:Port。
问题:
- 如何使用 gen_tcp 模块在 Erlang 上实现?
- 可以通过 gen_tcp:listen 的选项来解决吗?
- 如何以编程方式放弃 Erlang 中的尝试连接?
PS我是erlang的新手。