我有一个客户端,它创建 N 个进程并全部连接到这样的服务器:
send(State = #state{low = Low, high = Low}) ->
NewState = receive_sockets(0, Low, State),
NewState;
send(State = #state{low = Low}) ->
N = Low rem 10,
Dest = lists:nth(N + 1, State#state.dest),
spawn(?MODULE, loop, [self(), Dest, Low]),
NewState = State#state{low = Low + 1},
send(NewState).
loop(From, {IP, Port}, Low) ->
case gen_tcp:connect(IP, Port, [binary]) of
{ok, Socket} ->
gen_tcp:send(Socket, integer_to_binary(Low)),
From ! {Low, Socket},
loop1(Socket);
%%timer:sleep(infinity);
_Else ->
io:format("The connection failed ~n"),
loop(From, {IP, Port}, Low)
end.
loop1(Socket) ->
case gen_tcp:recv(Socket, 0) of
{ok, Data} ->
io:format("Received ~n ~p", [Data]),
loop1(Socket);
{error, einval} ->
io:format("error ~n")
end.
我正在创建许多客户端连接。稍后,服务器可能会向我发送一些数据,所以我正在使用 gen_tcp:recv/2 等待,但我收到 {error, einval}。
另外,我如何使用套接字有什么问题,因为我观察到套接字一旦被接受就会被关闭。
关于为什么的任何输入?
谢谢