Question

我正在尝试在OCaml中建立一个简单的客户端服务器在我的电脑和朋友的utop之间。但是，当我时，客户端尝试连接到我朋友的计算机。返回以下内容

Unix.Unix_error (Unix.EAGAIN, "connect", "")

我们尝试遵循以下文档https://caml.inria.fr/pub/docs/oreilly-book/html/book-ora187.html以及ocaml API参考。

服务器代码

  let s = socket PF_INET SOCK_STREAM 0 in
  try
    bind s addr;
    listen s 1000;
    s
  with z -> close s; raise z;;
val install_tcp_server_socket : sockaddr -> file_descr = <fun>
─( 17:17:32 )─< command 29 >─────────────────────────────────────────────────────────────{ counter: 0 }─
utop # let working = install_tcp_server_socket (ADDR_INET ((inet_addr_of_string "10.128.156.94"), 5002));;
val working : file_descr = <abstr>
─( 17:17:52 )─< command 30 >─────────────────────────────────────────────────────────────{ counter: 0 }─
utop # let (connect, client) = accept working;;

客户代码

utop # let s = Unix.socket (PF_INET) (Unix.SOCK_STREAM) 0;;
val s : Unix.file_descr = <abstr>
─( 17:54:10 )─< command 5 >──────────────────────────────────────────────────────────────────────────────{ counter: 0 }─
utop # let s_addr = Unix.sockaddr ((Unix.inet_addr_of_string "10.128.156.94"), 5002);;
Line 1, characters 13-26:
Error: Unbound value Unix.sockaddr
─( 18:12:32 )─< command 6 >──────────────────────────────────────────────────────────────────────────────{ counter: 0 }─
utop # let s_addr = Unix.ADDR_INET ((Unix.inet_addr_of_string "10.128.156.94"), 5002);;
val s_addr : Unix.sockaddr = Unix.ADDR_INET (<abstr>, 5002)
─( 18:13:55 )─< command 7 >──────────────────────────────────────────────────────────────────────────────{ counter: 0 }─
utop # Unix.connect s s_addr;;
Exception: Unix.Unix_error (Unix.EAGAIN, "connect", "").
─( 18:14:31 )─< command 8 >──────────────────────────────────────────────────────────────────────────────{ counter: 0 }─
utop #

Answer 1

我刚刚在这里的两个系统上尝试了您的代码，它对我有用。服务器端是Linux（Ubuntu），客户端是macOS。

connect调用不应返回EAGAIN。这不是已记录的错误之一。但是，我在网上看到一个ter不休的消息，说“当对等方的待办事项队列已满时”，Linux内核仍会这样做。如果您窥探服务器系统的日志文件，可能会看到一些有趣的东西。

您还可以尝试使用较小的积压队列大小值。您正在使用的代码使用3，但您使用的是1000。这可能无关紧要，实际上，它可能没有任何区别。但这是我看到的唯一不寻常的事情。

Ocaml客户端服务器：尝试连接时，客户端返回EAGAIN

1 个答案: