介绍gen_server的示例代码

关注

原创最新推荐文章于 2026-03-10 00:02:50 发布 2.8k 阅读 AI 写同款· GEO 优化 ›

gen_server 和 gen_fsm 的区别和应用在 Erlang 编程语言中，gen_server 和 gen_fsm 是两个重要的 OTP（Open Telecom Platform）设计模式，用于构建可扩展和可靠的并发应用程序。本文将详细介绍 gen_server 和 gen_fsm 的区别和应用，并提供相应的源代码示例。gen_server 适用于处理并发请求和维护内部状态的场景，而 gen_fsm 适用于实现有限状态机模型的场景。状态转换：gen_server 的状态转换是由客户端请求触发的，而 gen_fsm 的状态转换是由事件驱动的。阅读详情

OTP（open telecomplatform），它的设计目标是用于做一套容错系统。最核心的概念就是behavior。类似类继承，在类里编写函数实现；而外层非应用逻辑相关的东西（热更新，监控机制等等）交OTP体系来控制。

先介绍gen_server模块。使用这个编写服务器只需要确认这3件事情：

1. 确定一个回调模块的名称；

2. 写接口函数；

3. 在回调模块中写需要的6个函数；

下面这个例子代码摘自《Erlang程序设计》16章。

代码：

%%
%% Author:  erlang.hell
%% Date:    2012-11-18
%%

-module(my_bank).
-behavior(gen_server).
-export([start/0,stop/0,new_account/1,deposit/2,withdraw/2,
        init/1, handle_call/3, handle_cast/2, handle_info/2, terminate/2, code_change/3]).

%%====================================================================
%% server interface function
%%====================================================================
start()->
    gen_server:start_link({local,?MODULE}, ?MODULE,[],[]).

stop()->
    gen_server:call(?MODULE,stop).

new_account(Who)->
    gen_server:call(?MODULE,{new,Who}).

deposit(Who,Amount)->
    gen_server:call(?MODULE,{add,Who,Amount}).

withdraw(Who,Amount)->
    gen_server:call(?MODULE,{remove,Who,Amount}).

%%====================================================================
%% gen_server callbacks
%%====================================================================
init([]) ->
    Init=ets:new(?MODULE,[]),
    io:format("init ~p ~p",[Init,?MODULE]),
    {ok, Init}.

handle_call({new,Who}, _From, State) ->
    Reply = case ets:lookup(State,Who) of
        []->ets:insert(State,{Who,0}),
            {welcome,Who};
        [_]->{exsits,Who,you_already_are_a_customer}
    end,
    {reply, Reply, State}; 
handle_call({add,Who,Amount},_From,State)->
    Reply = case ets:lookup(State,Who) of
        []->not_a_customer;
        [{Who,Balance}]->
            NewBalance=Balance+Amount,
            ets:insert(State,{Who,NewBalance}),
            {thanks,Who,you_balance_is,NewBalance}
    end,
    {reply, Reply, State}; 
handle_call({remove,Who,Amount},_From,State)->
    Reply = case ets:lookup(State,Who) of
        []->not_a_customer;
        [{Who,Balance}] when Amount =< Balance ->
            NewBalance=Balance-Amount,
            ets:insert(State,{Who,NewBalance}),
            {thanks,Who,your_balance_is,NewBalance};
        [{Who,Balance}]->
            {sorry,Who,you_only_have,Balance,in_the_bank}
    end,
    {reply, Reply, State}.

handle_cast(_Msg, State) ->
    {noreply, State}.

handle_info(_Info, State) ->
    {noreply, State}.

terminate(_Reason, _State) ->
    io:format("is terminate.",[]),
    ok.

code_change(_OldVsn, State, _Extra) ->
    {ok, State}.

测试：

Eshell V5.9.1 (abort with ^G)

9>my_bank:new_account("erlang").

{welcome,"erlang"}

10>my_bank:deposit("erlang",10).

{thanks,"erlang",you_balance_is,10}

11>my_bank:deposit("erlang",20).

{thanks,"erlang",you_balance_is,30}

12> my_bank:withdraw("erlang",5).

{thanks,"erlang",your_balance_is,25}

遇到的麻烦：

4>my_bank:new_account("erlang",100).