我编写了一个简单的tcp服务器模块并运行良好。当我在运行时编译该模块时,问题是当客户端向服务器发送任何内容时,它没有收到任何响应!怎么解决它?
start(Port) ->
{ok, Listen} = gen_tcp:listen(Port, [{active, once}]),
spawn(?MODULE, loop, [Listen]).
loop(Listen) ->
{ok, Socket} = gen_tcp:accept(Listen),
spawn(?MODULE, loop, [Listen]),
handler(Socket).
handler(Socket) ->
receive
{tcp, Socket, Data} ->
%io:format("recv ~p~n", [Data]),
spawn(?MODULE, response, [self(), Data]),
inet:setopts(Socket, [{active, once}]),
handler(Socket);
{tcp_closed, Socket} ->
%io:format("disconnected~n", []),
gen_tcp:close(Socket);
{send_msg, Msg} ->
gen_tcp:send(Socket, lists:flatten(io_lib:format("~p", [Msg])) ++ ?END_CHAR),
handler(Socket)
end.
response(PID, Data) ->
[Req|Args] = string:tokens(Data, ?END_CHAR),
{ReqPID, ReqRef} = spawn_monitor(view, request, [list_to_atom(Req), self(), Args]),
receive
{'DOWN', ReqRef, process, ReqPID, {function_clause, _}} -> PID ! {send_msg, invalid_request};
{'DOWN', ReqRef, process, ReqPID, {{case_clause, _}, _}} -> PID ! {send_msg, bad_args};
{'DOWN', ReqRef, process, ReqPID, {{badmatch, _}, _}} -> PID ! {send_msg, bad_args};
Resp -> PID ! {send_msg, Resp}
end.
答案 0 :(得分:2)
我建议如下:
在您的收听选项中,将{active,once}
更改为{active,false}
。您不会在侦听套接字上收到任何消息,并且您不希望任何已接受的套接字继承活动设置,因为最好让它们在实际准备好处理传入消息时设置活动设置。
在handler/1
功能中,将inet:setopts/2
来电移至receive
之前的顶部。还要更改它以检查其返回值,如下所示:
ok = inet:setopts(Socket, [{active, once}]),
我怀疑你把它放在{tcp, ...}
消息处理子句下面,因为从技术上说它只需要它,但是在顶部使用它不容易出错。这也是必要的,因为在第一次调用handler/1
时,套接字上没有活动设置,考虑到我上面推荐的第一个更改。
在致电gen_tcp:send/2
时,无需展平从io_lib:format
返回的列表 - 它会返回iolist
,gen_tcp:send/2
可以处理细