erlang简易分布式应用-----银行存储查询。

     我们将展示如何结合BIF monitor_node/2和向远程节点的注册进程发送消息的能力。我们将实现一个非常简单的银行服务，用以处理远程站点的请求，比如ATM机上存款、取款业务。这里我用的是自己机器上的两个不同的节点，客户端为：client@wae01020199woobest.com  服务端为server@wae01020199woobest.com。两个节点分别处理客户端与服务端的逻辑。 客户端：主要封装了三个接口，ask（查询某人的存储信息），desposit（存储某人的信息，{name，money}），withdraw（取钱操作，{name，money}）。这里用了monitor_node（node，true）来检查网络的连接，只要未连接上，被连接进程将向该进程发送{nodedown， nodeid}，只有才第二个参数为true的时候才会进行监听，如果连接不存在，且monitor_node/2被调用，系统将尝试建立连接；若连接建立失败则投递一个nodedown消息。若针对同一节点连续两次调用monitor_node/2则在节点失败时将投递两条nodedown消息。

-module(bank_client).
-export([ask/1, deposit/2, withdraw/2]).

head_office() -> 'server@wae01020199.woobest.com'.

ask(Who) -> call_back({ask, Who}).
deposit(Who, Amount) -> call_back({deposit, Who, Amount}).
withdraw(Who, Amount) -> call_back({withdraw, Who, Amount}).

call_back(Msg) ->
    Headoffice = head_office(),
    monitor_node(Headoffice, true),
    {bank_server, Headoffice} ! {self(), Msg},
    receive
        {bank_server, Reply} ->
            monitor_node(Headoffice, false),
            Reply;
        {nodedown, Headoffice} ->
            no
    end.

 

   服务端：首先start（）方法注册一个bank_serser进程，执行server（[]），此时参数为[]。在server中接受消息，ask，deposit，withdraw，例如接受ask（Who）后，返回client（From） {bank_server，lookup（Who，Data）}，即为在Data中查找Who的数值。然后在client中接受后关闭监听进程，并将数据输出到控制台。在接受deposit，withdraw时处理方式类似。

-module(bank_server).
-export([start/0, server/1]).

start() ->
    register(bank_server, spawn(bank_server, server, [[]])).

server(Data) ->
    receive
        {From, {deposit, Who, Amount}} ->
            From ! {bank_server, ok},
            server(deposit(Who, Amount, Data));
        {From, {ask, Who}} ->
            From ! {bank_server, lookup(Who, Data)},
            server(Data);
        {From, {withdraw, Who, Amount}} ->
            case lookup(Who, Data) of
                undefined ->
                    From ! {bank_server, no},
                    server(Data);
                Balance when Balance > Amount ->
                    From ! {bank_server, ok},
                    server(deposit(Who, -Amount, Data));
                _ ->
                    From ! {bank_server, no},
                    server(Data)
            end
    end.

lookup(Who, [{Who, Value} | _]) -> Value;
lookup(Who, [_|T]) -> lookup(Who, T);
lookup(_, _) -> undefined.

deposit(Who, X, [{Who, Balance}|T]) ->
    [{Who, Balance + X}|T];
deposit(Who, X, [H|T]) ->
    [H|deposit(Who, X, T)];
deposit(Who, X, []) ->
    [{Who, X}].

  这里说明下自己创建两个节点的过程。client：在bank_client所在目录下以管理员权限运行cmd，然后输入erl -name client。。。以client命名方式打开erlang shell。同样在bank_server中，打开cmd输入erl -name server。。。打开erlang shell。这里说一下，启动可以用 erl -name server ，也可以用erl -sname server，区别在于   The node name will beName@Host, where Host is the fully qualified host name of the current host. For short names, use flag-sname instead.