改来改去，最后放github了，贴的也累，蛋疼
还有一个tcp批量客户端的，也一起了
大概思路是
混合模式
使用erlang:send_after添加recv的超时处理
send在socket的option里面可以设置超时
accept，connect都可以在调用的时候传参处理
有一点提醒
inet:setopts(LSock, [{active, 10}]),
这里使用ListenSocket就可以了，ListenSock的一些属性，会直接复制给ClientSocket，这个在prim_inet模块的accept函数里面有