Erlang--TCP学习(四)并行web server篇

最新推荐文章于 2025-08-04 16:19:38 发布

最新推荐文章于 2025-08-04 16:19:38 发布 · 145 阅读

文章标签：

#socket #tcp

erlang 专栏收录该内容

20 篇文章

订阅专栏


-module(tcp_parallel_server).

-compile(export_all).

-define(TCP_OPT, [binary, {packet, 4}, {reuseaddr, true}, {active, true}]).

start_server() ->
    {ok, ListenSocket} = gen_tcp:listen(8888, ?TCP_OPT),
    spawn(fun() -> parallel_connect(ListenSocket) end).

parallel_connect(ListenSocket) ->
    case gen_tcp:accept(ListenSocket) of
        {ok, Socket} ->
            spawn(fun() -> parallel_connect(ListenSocket) end),
            loop_receive(Socket);
        {error, Reason} ->
            io:format("server accept socket error:~p~n",[Reason])
    end.

loop_receive(Socket) ->
    receive
        {tcp, Socket, Bin} ->
            io:format("server receive bin data:~p~n",[Bin]),
            UnpackData = binary_to_term(Bin),
            io:format("server receive data:~p~n",[UnpackData]),
            Reply = {reply, UnpackData},
            gen_tcp:send(Socket, term_to_binary(Reply)),
            loop_receive(Socket);
        {tcp_closed, Socket} ->
            io:format("server socket closed: ~p~n",[Socket])
    after 3000 ->
            io:format("server time out, close socket~n"),
            gen_tcp:close(Socket)
    end.

代码运行:
[img]http://dl2.iteye.com/upload/attachment/0110/1559/010a2078-b606-3fb5-9bba-b62416aff824.png[/img]

[img]http://dl2.iteye.com/upload/attachment/0110/1561/8f7025b4-7c90-3b19-930b-8c025e73c9ed.png[/img]