mnesia 多节点生成测试

mnesia 可以在单个节点和多个节点共享数据，现在测一下多节点的情况吧，

mnesia 生成数据库在多个节点可以直接生成，也可以在启动节点后再连接。

这里的测试用erlang.mk 生成工程，测试的方法用趣学erlang中的方法。

1. mkdir db

2. cd db

3. move erlang.mk 到这个文件夹，也可以网上下载。

make -f erlang.mk bootstrap bootstrap-rel

4.cd src

5.vi db_app.erl

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

-module(db_app).
-behaviour(application).
-compile(export_all).


-include_lib("stdlib/include/ms_transform.hrl").
-include_lib("stdlib/include/qlc.hrl").


-compile(export_all).


-record(mafiapp_friends, {name,
                                                    contact=[],
                                                    info=[],
                                                    expertise}).
start(normal, []) ->
        mnesia:wait_for_tables([mafiapp_friends,mafiapp_services,mafiapp_enemies], 5000),
        db_sup:start_link().


stop(_) -> ok.


install(Nodes) ->
        ok = mnesia:create_schema(Nodes),
        rpc:multicall(Nodes, application, start, [mnesia]),
        mnesia:create_table(mafiapp_friends, [{attributes, record_info(fields, mafiapp_friends)},
                                                                              {index, [#mafiapp_friends.expertise]},
                                                                              {disc_copies, Nodes}]),
        rpc:multicall(Nodes, application, stop, [mnesia]).


add_friend(Name, Contact, Info, Expertise) ->
        F = fun() ->
                    mnesia:write(#mafiapp_friends{name=Name, contact=Contact, info=Info, expertise=Expertise})
                end,
        mnesia:activity(transaction, F).




friend_by_expertise(Expertise) ->
        F = fun() ->
               qlc:eval(qlc:q([{Name,C,I,E} || #mafiapp_friends{name=Name, contact=C, info=I, expertise=E} <- mnesia:table(mafiapp_friends),E =:= Expertise]))
                end,
        mnesia:activity(transaction, F).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

6. wq!

7. cd ..

8. make

9. 把编译好的工程copy 一份到服务器

10. 正式开测

server: 

erl -pa ebin -name a@ip... -setcookie abc

client:

erl -pa ebin -name b@127.0.0.1 -setcookie abc

 
 

  
  

   
   

    
    
10.1 
    
    
net_kernel:connect('genco@ferdmbp.local').  % server ip address 这里和上边的ip...要一样的就可以了。
    
    
如果成功就返回true。
    
    

   
   
  
  
 
 
 
 

  
  

   
   

    
    

    
    

     
     

      
      
 
       
10.2 
 
       
db_app:install([node()|nodes()]).
 
       
%这里初始化数据库，如果成功就会在当前目录下边生成数据库文件夹。
 
       
10.3 
 
       
服务器和客户端都运行下边的命令:
 
       
 
       
 
        
 
         
 
          
application:start(mnesia), application:start(db). 
 
         
 
        
 
       
成功就可以调用数据方法了。 
       
 
       
10.4 
 
       
 client run
 
      
     
     
    
    
    
    

    
    
db_app:add_friend("Don", [], [boss], boss).   

   
   
  
  
 
 

db_app:add_friend("yzm", [], [boss], yzm). 

在server 查询一下看看有没没数据

db_app:friend_by_expertise(yzm).

有的，client 查询也有的，说明两边都产生了同步的数据，成功了。