Question

我正在尝试与ninnenine ranch erlang library 建立长期的TCP连接。但是查看文档，我看不到这样做的方法。我也写了我自己的牧场协议，如下所示

   start_link(Ref, _Socket, Transport, Opts) ->
        Pid = spawn_link(?MODULE, init, [Ref, Transport, Opts]),
        {ok, Pid}.

    init(Ref, Transport, _Opts = []) ->
        {ok, Socket} = ranch:handshake(Ref),
        loop(Socket, Transport).

    loop(Socket, Transport) ->
        case Transport:recv(Socket, 0, 5000) of
          {ok, Data} when Data =/= <<4>> ->
          %% Transport:send(Socket, Data),
          io:format("~w Connction accpted~n", [Data]);
          _ -> ok
               %%, Transport:close(Socket)
        end.

如您所见，我已经评论了Transport:close(Socket)，并且由于Transsport:send(socket,Data)也被评论认为这将解决问题，但我没有向客户端发送任何响应，但是我的联系仍然打开时立即关闭。我有如下所示的golang客户端

package main
import (
    "fmt"
    "log"
    "net"

)

    func main(){
        conn, err := net.Dial("tcp", "localhost:5555")
                if err != nil {
                    fmt.Println(err)
                }
                fmt.Println(conn /*, i*/)
                conn.Write(XMLData)
                buffer := make([]byte, 10024)
                n, err := conn.Read(buffer)
                fmt.Println(buffer[:n])
                //conn.Close()

    }

i，虽然这是牧场中的超时原因。我搜索了一下，发现在牧场中的文件src / ranch_tcp.erl中，我们有如下实现的侦听功能

listen(Opts) ->
Opts2 = ranch:set_option_default(Opts, backlog, 1024),
Opts3 = ranch:set_option_default(Opts2, nodelay, true),
Opts4 = ranch:set_option_default(Opts3, send_timeout, 30000),
Opts5 = ranch:set_option_default(Opts4, send_timeout_close, true),
%% We set the port to 0 because it is given in the Opts directly.
%% The port in the options takes precedence over the one in the
%% first argument.
gen_tcp:listen(0, ranch:filter_options(Opts5, disallowed_listen_options(),
    [binary, {active, false}, {packet, raw}, {reuseaddr, true}])).

如您所见，有一个超时选项，特别是Opts5 Opts5 = ranch:set_option_default(Opts4, send_timeout_close, true)和Opts4 Opts4 = ranch:set_option_default(Opts3, send_timeout, 30000),。我禁用了它们，但仍然不起作用。所以我应该怎么做才能使用牧场长寿命的tcp连接。

Answer 1

您的协议实现存在缺陷

loop(Socket, Transport) -> case Transport:recv(Socket, 0, 5000) of {ok, Data} when Data =/= <<4>> -> %% Transport:send(Socket, Data), io:format("~w Connction accpted~n", [Data]); _ -> ok %%, Transport:close(Socket) end.

您不会在任何case子句分支中递归调用loop/2，因此，当loop/2返回时，tcp连接断开，协议进程终止。

使用tennineine ranch实现万岁TCP连接

1 个答案: