使用gen_tcp时套接字的接受率

Question

使用gen_tcp行为时，我发现了一个有趣的问题。 我有一个服务器和一个客户端。 服务器接受连接，客户端创建许多进程，所有进程都尝试连接到侦听服务器。

如果我尝试启动客户端，它会产生许多进程，所有进程都试图同时连接到套接字，那么很多进程都会失败。 但是，如果我放置timer:sleep(x)那么每个套接字都将被接受。

这是否意味着gen_tcp:accept()有一个可以接受某些连接请求的限制？

服务器和客户端的代码如下：

 accept(State = #state{lsocket = LSocket, num = Num}) ->
   case gen_tcp:accept(LSocket) of
     {ok, Socket} ->
       io:format("Accepted ~p ~n", [Num]),
       {sockets, List} = hd(ets:lookup(csockets, sockets)),
       NewList = [Socket | List],
       ets:insert(csockets, {sockets, NewList}),
       Pid = spawn(fun() -> loop(Socket) end),
       gen_tcp:controlling_process(Socket, Pid),
       accept(State#state{num = Num + 1});
     {error, closed} -> State
   end.

 loop(Socket) ->
   case gen_tcp:recv(Socket, 0) of
     {ok, Data} ->
       gen_tcp:send(Socket, Data),
       loop(Socket);
     {error, closed} ->
       io:format(" CLOSED ~n"),
       ok
   end.

客户：

send(State = #state{low = Low, high = Low}) ->
  State;
send(State = #state{low = Low}) ->
  N = Low rem 10,
  Dest = lists:nth(N + 1, State#state.dest),
  spawn(?MODULE, loop, [Dest, Low]),
  %%timer:sleep(1),
  NewState = State#state{low = Low + 1},
  send(NewState).

loop({IP, Port}, Low) ->
  case gen_tcp:connect(IP, Port, [binary]) of
    {ok, Socket} ->
      io:format("~p Connected ~n", [Low]),
      gen_tcp:send(Socket, "Hi"),
      receive
        {tcp, RecPort, Data} ->
          io:format("I have received ~p on port ~p  ~p ~n", [Data, RecPort, Low])
      end;
    _Else ->
      io:format("The connection failed ~n"),
      loop({IP, Port}, Low)
  end.

Answer 1

确实，单个进程只能这么快gen_tcp:accept/1 ，尽管我不确定这是您遇到的瓶颈。

您可能对Ranch（牛仔网络服务器的TCP库）感兴趣。 该手册包括有关内部功能的部分，该部分讨论如何使用多个接受器。

在您的情况下，您应该尝试自己产生更多的调试输出。 当客户端无法连接时打印错误将是一个很好的开始-TCP客户端可能无法连接的原因很多。