erlangのgen_serverとして実装されたtcp_listenerを停止する方法

Question

私はgen_server（）としてtcp_listenerを実装しました。私はstart_link（ポート）と呼ばれる関数をそのポートでtcp_listenerを作成します。さて、tcp_listenerにstop（）のリッスンを止めるように指示する方法を理解するのは難しいです。 このような関数をstopで呼び出そうとしました。

stop() -> gen_server:cast(?MODULE, shutdown) 

terminate/2関数リスニングソケットを閉じようとしましたが失敗しました。

terminate(_Reason, State = #state{lsocket = LSocket}) -> 
gen_tcp:close(LSocket), 
NewState = State#state{lsocket = null}, 
{ok, NewState}. 

リスニングソケットを閉じると、私が生成した受け入れられた接続はどうなりますか？

ありがとうございました！

start_link(Port) when is_integer(Port) -> 
    State = #state{port = Port}, 
    gen_server:start_link({local, ?MODULE}, ?MODULE, State, []). 

    init(State = #state{port = Port}) -> 
    io:format("Supervisor started me and I am listening at ~p ~n", [Port]), 
    case gen_tcp:listen(Port, ?TCP_OPTIONS) of 
    {ok, LSocket} -> 
    NewState = State#state{lsocket = LSocket}, 
    spawn(fun() -> accept(NewState) end), 
    {ok, NewState}; 
    {error, Reason} -> 
    {stop, Reason} 
    end. 

    accept(State = #state{lsocket = LSocket}) -> 
    case gen_tcp:accept(LSocket) of 
    {ok, Socket} -> 
    Pid = spawn(fun() -> 
    io:format("Connection accepted ~n"), 
    loop(Socket) 
       end), 
    gen_tcp:controlling_process(Socket, Pid), 
    accept(State); 
    {error, closed} -> error 
    end. 

    loop(Socket) -> 
    case gen_tcp:recv(Socket, 0) of 
     {ok, Data} -> 
     gen_tcp:send(Socket, Data), 
    loop(Socket); 
    {error, closed} -> 
     ok 
    end. 

Answer 1

私は特に、this chapter in the Learn You Some Erlang bookを見てお勧めします。

両方のソケットが同じ方法でメッセージを送信することができ、その後、gen_tcp:close(Socket)で閉じることができます。 acceptソケットを閉じると、そのソケットだけが閉じられ、listenソケットを閉じると、関連して確立されたacceptソケットは閉じられませんが、{error, closed}を返して現在実行中のaccept呼び出しを中断します。

したがって、すべてのソケットでgen_tcp:close(Socket)を呼び出すだけで済みます。