为了学习 Erlang，我正在尝试实现一个基于gen_tcp。不幸的是，我的代码似乎触发了一些有线行为。为了演示这个问题，我附上了我的实现的最小化版本，它足以重现该问题。无论 HTTP 请求是什么，它都只是传递静态 200 OK。
当我尝试运行时出现问题ab（Apache HTTP 服务器基准测试）针对我的 Web 服务器（使用环回接口）。没有任何并发请求（-c）一切都运行得很好。但是，如果我使用-c 8 or -c 16，调用gen_tcp:accept/1似乎在某些套接字上失败，因为我看到了一些request: closed外壳中的线条。
让整个故事变得更奇怪的是，我在不同的操作系统上看到了不同的行为：
- OS X+Erlang/OTP 18：
ab启动后几乎立即报告“连接被对等方重置”。
- Debian+Erlang R15B01：除了两个 HTTP 请求之外，所有 HTTP 请求似乎都已通过。但是之后，
ab当我运行时，挂起几秒钟并报告“指定的超时已过期，总计 4998 个请求已完成”ab with -n 5000。同样，当我运行 15000 次测试时，会报告 14998。
This one https://stackoverflow.com/questions/32410172/erlang-raise-number-of-opened-sockets-macos-and-centos似乎不是问题。老实说，我很迷茫，因此感谢任何帮助！ ：） 谢谢！
server(Port) ->
Opt = [list, {active, false}, {reuseaddr, true}],
case gen_tcp:listen(Port, Opt) of
{ok, Listen} ->
handler(Listen),
gen_tcp:close(Listen),
ok;
{error, Error} ->
io:format("init: ~w~n", [Error])
end.
handler(Listen) ->
case gen_tcp:accept(Listen) of
{ok, Client} ->
request(Client),
handler(Listen);
{error, Error} ->
io:format("request: ~w~n", [Error])
end.
request(Client) ->
Recv = gen_tcp:recv(Client, 0),
case Recv of
{ok, _} ->
Response = reply(),
gen_tcp:send(Client, Response);
{error, Error} ->
io:format("request: ~w~n", [Error])
end,
gen_tcp:close(Client).
reply() ->
"HTTP/1.0 200 OK\r\n" ++
"Content-Length: 7\r\n\r\n"
"static\n".
