对socket执行gen_tcp:accept/1返回{error, closed}

茶叶feng

shell脚本启动listen后accept总是报{error, closed}错误
书上说，socket的生命周期和它的归属进程一样，也就是说归属进程死了，socket也就死了，之前没有对这句话理解好，当用shell脚本启动erlang虚拟机的时候，就出现了下面的问题
以下是socket_example.erl部分的代码，用shell脚本直接执行erl -s socket_example -- start,但是执行gen_tcp:accept(LSocket)时候总是报{error, closed}错误

1. start() ->
   
2.     Args = [binary, {packet, 4}, {reuseaddr, false}, {active, true}],
   
3.     {ok, LSocket} = gen_tcp:listen(8088, Args),
   
4.     spawn(fun() -> wait_client(LSocket) end).
   
5. 
   
6. wait_client(LSocket) ->
   
7.     case gen_tcp:accept(LSocket) of
   
8.         {ok, Socket} ->
   
9.             spawn(fun() -> wait_client(LSocket) end),
   
10.             loop(Socket);
    
11.         {error, Reason} ->
    
12.             io:format("error ~p~n", [Reason])
    
13.     end.

复制代码

经过排查，原来是因为脚本执行完start/0函数时候，进程就结束了，socket的生存是跟归属进程一起的，所以，归属进程死了，socket也跟着死了，所以只要改变归属权就行了

1. start() ->
   
2.     Args = [binary, {packet, 4}, {reuseaddr, false}, {active, true}],
   
3.     {ok, LSocket} = gen_tcp:listen(8088, Args),
   
4.     Pid = spawn(fun() -> wait_client(LSocket) end),
   
5.     gen_tcp:controlling_process(LSocket, Pid).
   
6. 
   
7. wait_client(LSocket) ->
   
8.     case gen_tcp:accept(LSocket) of
   
9.         {ok, Socket} ->
   
10.             Pid = spawn(fun() -> wait_client(LSocket) end),
    
11.             gen_tcp:controlling_process(LSocket, Pid),               
    
12.             loop(Socket);
    
13.         {error, Reason} ->
    
14.             io:format("error ~p~n", [Reason])
    
15.     end.

复制代码