3

我有一个GenServer通过gen_tcp.

opts = [:binary, active: true, packet: :line] {:ok, socket} = :gen_tcp.connect('remote-url', 8000, opts}

我正在处理以下消息:

def handle_info({:tcp, socket, msg}, stage) do IO.inspect msg {:noreply, state} end

效果很好。但是,TCP 服务器很容易超时。如果我使用gen_tcp.recv,我可以指定超时。但是,我习惯用active: true接收消息handle_info,而不必循环调用recv. 因此,GenServer即使服务器超时,它也会愉快地等待下一条消息。

GenServer当 X 秒后没有收到来自 TCP 连接的消息时,如何触发函数?我被卡住了recv吗?

4

1 回答 1

7

如果 TCP 连接本身已经超时,那么您应该会收到一个已关闭的套接字消息{tcp_closed, Socket}。匹配这个handle_info就可以了。至于在连接上建立您自己的超时,我通常erlang:send_after/3用来向自己发送一条消息——有效地添加一个我可以接收的超时消息语义handle_info或任何receive可能存在的服务循环。

erlang:send_after(?IDLE_TIMEOUT, self(), {tcp_timeout, Socket})

这必须与每次收到流量时取消计时器配对。这可能看起来像:

handle_info({tcp, Socket, Bin}, State = #s{timer = T, socket = Socket}) ->
    _ = erlang:cancel_timer(T),
    {Messages, NewState} = interpret(Bin, State),
    ok = handle(Messages),
    NewT = erlang:send_after(?IDLE_TIMEOUT, self(), {tcp_timeout, Socket})
    {noreply, NewState#s{timer = NewT}};
handle_info({tcp_closed, Socket}, State = #s{timer = T, socket = Socket}) ->
    _ = erlang:cancel_timer(T),
    NewState = handle_close(State),
    {noreply, NewState};
handle_info({tcp_timeout, Socket}, State = #s{socket = Socket}) ->
    NewState = handle_timeout(State),
    {noreply, NewState};
handle_info(Unexpected, State) ->
    ok = log(warning, "Received unexpected message: ~tp", [Unexpected]),
    {noreply, State}.
于 2016-07-21T03:58:09.220 回答