erlang学习： erlang版echoserver

最新推荐文章于 2018-05-30 14:39:44 发布

原创最新推荐文章于 2018-05-30 14:39:44 发布 · 195 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#erlang

后端技术专栏收录该内容

3 篇文章

订阅专栏

本文介绍如何使用 Erlang 编程语言实现一个简单的回声服务器，利用 gen_tcp 模块和消息接收模型，每个连接对应一个独立的进程。

erlang实现的简单的echo server
采用每连接对应一个进程的模式
用到了 gen_tcp 模块、erlang的消息接收模型


-module(echoserver).

-export([start/0, stop/0, server/0, handle_connect/3]).

start() ->
    % 创建一个进程，运行 server()
    register(echoserver, spawn(?MODULE, server, [])).

stop() ->
    echoserver ! {quit}.

server() ->
    {ok, ListenSocket} = gen_tcp:listen(12345, [binary, {reuseaddr, true}, {active, false}]),
    loop(ListenSocket, 0). 

loop(ListenSocket, Count) ->
    receive
        {quit} ->
            io:format("echoserver will stop~n"),
            gen_tcp:close(ListenSocket);
        Reason ->
            io:format("recv ~p~n", Reason)
    after 10 ->  
         % 等待连接
         case gen_tcp:accept(ListenSocket, 3000) of
            {ok, Socket} ->
                % 创建一个进程来处理此连接
                spawn(?MODULE, handle_connect, [Socket, [], Count]),
                loop(ListenSocket, Count+1);
            {error, timeout} ->
                loop(ListenSocket, Count);
            {error, Reason} ->
                io:format("accept failed~n"),
                gen_tcp:close(ListenSocket)
        end 
    end.

handle_connect(Socket, BinaryList, Count) ->
    io:format("handle_connect ~p~n", [self()]),
    case gen_tcp:recv(Socket, 0) of
        {ok, Binary} ->
            case gen_tcp:send(Socket, Binary) of
                ok ->
                    handle_connect(Socket, BinaryList, Count);
                {error, Reason} ->
                    io:format("send failed~n"),
                    gen_tcp:close(Socket)
            end;
        {error, timeout} ->
            io:format("recv timeout~n"),
            gen_tcp:close(Socket);
        {error, closed} ->
            gen_tcp:close(Socket)
    end.