我正在努力找出 gen_tcp:accept 总是返回 {error, closed} 响应的原因。
本质上,我有一个创建监听套接字的主管:
gen_tcp:listen(8081, [binary, {packet, 0}, {active, false}, {reuseaddr, true}]),
然后这个套接字被传递给一个子节点,它是 gen_server 行为的一个实现。然后孩子接受套接字上的连接。
accept(ListeningSocket, {ok, Socket}) ->
spawn(fun() -> loop(Socket) end),
accept(ListeningSocket);
accept(_ListeningSocket, {error, Error}) ->
io:format("Unable to listen on socket: ~p.~n", [Error]),
gen_server:call(self(), stop).
accept(ListeningSocket) ->
accept(ListeningSocket, gen_tcp:accept(ListeningSocket)).
loop(Socket) ->
case gen_tcp:recv(Socket, 0) of
{ok, Data} ->
io:format("~p~n", [Data]),
process_request(Data),
gen_tcp:send(Socket, Data),
loop(Socket);
{error, closed} -> ok
end.
我在本地加载 supervisor 和 gen_server BEAM 二进制文件,并通过对 code:load_binary 的 RPC 调用将它们加载到另一个节点(在同一台机器上运行)。接下来,我通过 RPC 调用执行主管,然后启动服务器。{error, closed} 在这种情况下总是由 gen_tcp:accept 返回。
如果我在登录到节点外壳时运行主管和服务器,那么服务器可以毫无问题地接受连接。这包括对无法接受连接的远程节点的“remsh”,如果我之前对其进行了 RPC 以不成功地启动服务器。
我似乎能够通过单独使用 shell 来复制这个问题:
[Terminal 1]: erl -sname node -setcookie abc -distributed -noshell
[Terminal 2]: erl -sname rpc -setcookie abc:
net_adm:ping('node@verne').
{ok, ListeningSocket} = rpc:call('node@verne', gen_tcp, listen, [8081, [binary, {packet, 0}, {active, true}, {reuseaddr, true}]]).
rpc:call('node@verne', gen_tcp, accept, [ListeningSocket]).
对最终 RPC 的响应是 {error, closed}。
这可能与套接字/端口所有权有关吗?
万一它有帮助,没有客户端等待连接,我也没有在任何地方设置超时。