一个进程控制多个socket

本文用于验证，在erlang中 一个进程可以控制多个socket通信。验证程序如下：

-module(test_tcp).-compile(export_all).-include_lib("kernel/include/inet.hrl").-define(TCP_OPTIONS, [binary, {packet, 0}, {active, once}, {exit_on_close, true}, {reuseaddr, true} ]).test() ->Pid = spawn_link(?MODULE, loop, []),{ok, Listen} = gen_tcp:listen(6099, ?TCP_OPTIONS),loop_listen(Listen, Pid).loop_listen(Listen, Pid) ->{ok, Sock} = gen_tcp:accept(Listen),gen_tcp:controlling_process(Sock, Pid),loop_listen(Listen, Pid).loop() ->receive {tcp, Sock, Bin} ->io:format("rcv from ~p: ~p", [Sock, Bin]),inet:setopts(Sock, [{active, once}]),loop()end.

启动本脚本；外界可以连接6099端口，发送数据。可以看到，不同的连接发送的数据，被同一个控制进程捕获到。