erlang 读文本文件进数据库mnesina

shijiang1130

1. -module(myapp_app).
   
2. 
   
3. -behaviour(application).
   
4. -record(example,{id,deviceName,iPAddress,port}).
   
5. -include_lib("stdlib/include/qlc.hrl").
   
6. 
   
7. %% Application callbacks
   
8. -compile(export_all).
   
9. %% ===================================================================
   
10. %% Application callbacks
    
11. %% ===================================================================
    
12. 
    
13. start(_StartType, _StartArgs) ->
    
14.     myapp_sup:start_link().
    
15. 
    
16. init_table()->
    
17.         mnesia:start(),
    
18.         mnesia:create_table(example,[{attributes,record_info(fields,example)}]),
    
19.         read_txt().
    
20. 
    
21. read_txt()->
    
22.         {ok,S}=file:read_file("example.txt"),
    
23.         i(S).
    
24.        
    
25. i(S)->
    
26.          T=erlang:binary_to_list(S),
    
27.          R=string:tokens(T,"\r\n"),
    
28.          [ spawn(fun()->insert_data(U) end) || U <- R ].
    
29. 
    
30. insert_data(L)->
    
31.          [N,H,I,P]=string:tokens(lists:flatten(L),","),
    
32.          Row = #example{id=N,deviceName=H,iPAddress=I,port=P},
    
33.          %io:format([Row]),
    
34.          F=fun()->
    
35.          mnesia:write(Row)
    
36.          end,
    
37.          mnesia:transaction(F).
    
38. 
    
39. q()->
    
40.         F = fun() ->
    
41.                         Q = qlc:q([[E#example.deviceName, E#example.port] || E <- mnesia:table(example)]),
    
42.                         qlc:e(Q)
    
43.                         end,
    
44.                 mnesia:transaction(F).

复制代码

laputa73

mark.学习.
q()在这里的作用是什么?

shijiang1130

laputa73 发表于 2014-06-29 20:48
mark.学习.
q()在这里的作用是什么?

列出导进去的数据

laputa73

mnesia...
再下载mnesia指南看看...
mnesia的实用性如何?