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

阅读更多

-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.

代码运行:

• 
• 大小: 11.2 KB

• 
• 大小: 16.5 KB

• 查看图片附件