gen_server入门--简单银行数据存储处理系统

在这里插入图片描述

(1)编写接口方法 start(),stop(),new_account(Who),deposit(Who,Amount),withdraw(Who,Amount)
(2)编写回调方法,我们的回调方法必须导出六个回调方法:init、1,handle_call/3,handle_cast/2,handle_info/2,terminate/2和code_change/3.
这个模板包含了一个简单的框架,可以填充它们来制作服务器。

-module(my_bank).
-behaviour(gen_server).
-export([handle_call/3,init/1,handle_info/2,terminate/2,code_change/3]).
-export([handle_cast/2,start/0,deposit/2,new_account/1,withdraw/2]).
-define(SERVER, ?MODULE).
start()->gen_server:start_link({local,?SERVER},?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}).
init([])->{ok,ets:new(?MODULE,[])}.
handle_call({new,Who},_From,Tab)->
    Reply=case ets:lookup(Tab,Who) of
			[] ->ets:insert(Tab,{Who,0}),
				 {welcome,Who};
			[_]->{Who,you_already_are_a_customer}
	      end,
	{reply,Reply,Tab};
handle_call({add,Who,X},_From,Tab)->
    Reply=case ets:lookup(Tab,Who) of
			[] ->not_a_customer;
			[{Who,Balance}]->
			   NewBalance=Balance+X,
			   ets:insert(Tab,{Who,NewBalance}),
			   {thanks,who,your_balance_is,NewBalance}
	      end,
	{reply,Reply,Tab};
handle_call({remove,Who,X},_From,Tab)->
    Reply=case ets:lookup(Tab,Who) of
			[] ->not_a_customer;
			[{Who,Balance}] when X =<Balance->
				NewBalance = Balance-X,
				ets:insert(Tab,{Who,NewBalance}),
			   {thanks,who,your_balance_is,NewBalance};
			[{Who,Balance}]->
			   {sorry,Who,you_only_have,Balance,in_the_bank}
	      end,
	{reply,Reply,Tab};
handle_call(stop,_From,Tab)->{stop,normal,stopped,Tab}.
handle_cast(_Msg,State)->{noreply,State}.
handle_info(_Info,State)->{noreply,State}.
terminate(_Reason,_State)->ok.
code_change(_OldVsn,State,_extra)->{ok,State}

在这里插入图片描述
在这里插入图片描述

在这里插入图片描述

Erlang程序设计-----【瑞典】Joe Armstrong著 牛化成译—304页至308页—【M】北京:中国工信出版社和人民邮电出版社
https://support.microsoft.com/zh-cn/office/%E4%BD%BF%E7%94%A8-chen-%E7%9A%84%E6%95%B0%E6%8D%AE%E5%BA%93%E8%A1%A8%E7%A4%BA%E6%B3%95%E5%88%9B%E5%BB%BA%E5%9B%BE%E8%A1%A8-75d28eff-2509-4faf-8cd9-3eda5fb4327b

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值