一个完整的Erlang应用

http://blog.chinaunix.net/uid-25876834-id-3308693.html

这里介绍构建一个完整的Erlang/OTP应用的例子，最后还给出了一个在实际生成环境中，如何启动应用的才能方便运维人员维护和部署的实例。例子摘自 《Manning.Erlang.and.OTP.in.Action》（国内目前已经有中文版发行）。

关于该应用例子中，代码和配置文件中的基本的概念的解释我这里就省略了。
 
一个完整而简单的基于tcp的rpc 应用为例，一个应用包括：
 
1、元数据文件 tcp_rpc.app

点击(此处)折叠或打开

  1. {application,tcp_rpc,
  2.  [{description,"RPC Server for Erlang and OTP in action"},
  3.   {vsn, "0.1.0"},
  4.   {modules,[tr_app,
  5.             tr_sup,
  6.             tr_server]},
  7.   {registered, [tr_sup]},
  8.   {applications, [kernel, stdlib]},
  9.   {mod, {tr_app, []}}
  10. ]}.
2、应用启动模块 tr_app.erl

点击(此处)折叠或打开

  1. -module(tr_app).
  3. -behaviour(application).
  4. %% --------------------------------------------------------------------
  5. %% Include files
  6. %% --------------------------------------------------------------------
  8. %% --------------------------------------------------------------------
  9. %% Behavioural exports
  10. %% --------------------------------------------------------------------
  11. -export([
  12.      start/2,
  13.      stop/1
  14.         ]).
  16. %% --------------------------------------------------------------------
  17. %% Internal exports
  18. %% --------------------------------------------------------------------
  19. %% -export([]).
  21. %% ====================================================================!
  22. %% External functions
  23. %% ====================================================================!
  24. %% --------------------------------------------------------------------
  25. %% Func: start/2
  26. %% Returns: {ok, Pid} |
  27. %% {ok, Pid, State} |
  28. %% {error, Reason}
  29. %% --------------------------------------------------------------------
  31. start(_Type, _StartArgs) -> 
  32.     case tr_sup:start_link() of
  33.     {ok, Pid} -> 
  34.      {ok, Pid};
  35.     Error ->
  36.      {error,Error}
  37.     end.
  39. %% --------------------------------------------------------------------
  40. %% Func: stop/1
  41. %% Returns: any
  42. %% --------------------------------------------------------------------
  43. stop(_State) ->
  44.     ok.
3、顶层监督模块 tr_sup.erl

点击(此处)折叠或打开

  1. -module(tr_sup).
  3. -behaviour(supervisor).
  4. -export([start_link/0]).
  5. -export([
  6.      init/1
  7.         ]).
  8. -define(SERVER, ?MODULE).
  9. start_link() ->
  10.     supervisor:start_link({local, ?SERVER}, ?MODULE, []).
  11. init([]) ->
  12.     Server = {tr_server, 
  13.              {tr_server,start_link,[]},
  14.              permanent, 2000, worker, [tr_server]},
  15.     {ok,{
  16.          {one_for_one,0,1}, 
  17.          [Server]
  18.         }
  19.     }.
4、服务器模块 tr_server.erl

点击(此处)折叠或打开

  1. %%%-------------------------------------------------------------------
  2. %%% @author <龙二>
  3. %%% @copyright (C) 2012, 
  4. %%% @doc RPC over TCP server. This module defines a server process that 
  5. %%% listens for incoming TCP connections and allows the user to
  6. %%% execute RPC commands via that TCP stream.
  7. %%% @end
  8. %%% Created : 2 Jul 2012 by <emacs>
  9. %%%-------------------------------------------------------------------
  10. -module(tr_server).
  11. -include_lib("eunit/include/eunit.hrl"). %% Eunit单元测试
  12. -behaviour(gen_server).
  14. %% API
  15. -export([
  16.          start_link/1,
  17.          start_link/0,
  18.          get_count/0,
  19.          stop/0
  20.          ]).
  22. %% gen_server callbacks
  23. -export([init/1,handle_call/3,handle_cast/2,handle_info/2,
  24.          terminate/2,code_change/3]).
  26. -define(SERVER,?MODULE).
  27. -define(DEFAULT_PORT,1055).
  29. -record(state,{port,lsock,request_count = 0}).
  31. %%%===================================================
  32. %%% API
  33. %%%===================================================
  35. %%----------------------------------------------------
  36. %% @doc Starts the server.
  37. %%
  38. %% @spec start_link(Port::integer()) -> {ok,Pid}
  39. %% where
  40. %% Pid = pid()
  41. %% @end
  42. %%----------------------------------------------------
  43. start_link(Port) ->
  44.     gen_server:start_link({local,?SERVER},?MODULE,[Port],[]).
  46. %% @spec start_link() -> {ok,Pid}
  47. %% @doc Calls 'start_link(Port)' using the default port
  48. start_link() ->
  49.     start_link(?DEFAULT_PORT).
  51. %%----------------------------------------------------
  52. %% @doc Fetches the number of requests made to this server
  53. %% @spec get_count() -> {ok,Count}
  54. %% where
  55. %% Count = integer()
  56. %% @end
  57. %%----------------------------------------------------
  58. get_count() ->
  59.     gen_server:call(?SERVER,get_count).
  61. %%----------------------------------------------------
  62. %% @doc Stops the server
  63. %% @spec stop() -> ok
  64. %% @end
  65. %%----------------------------------------------------
  66. stop() ->
  67.     gen_server:cast(?SERVER,stop).
  69. %%%===================================================
  70. %%% gen_server callbacks
  71. %%%===================================================
  73. init([Port]) ->
  74.     {ok,LSock} = gen_tcp:listen(Port,[{active,true}]),
  75.     %% 0 is timeout value
  76.     %% a atom msg 'timeout' will be generate
  77.     %% handle_info/2 will handle this msg immediately when init/1 finished
  78.     {ok,#state{port = Port,lsock = LSock},0}. 
  80. handle_call(get_count,_From,State) ->
  81.     {reply,{ok,State#state.request_count},State}.
  83. handle_cast(stop,State) ->
  84.     {stop,normal,State}.
  86. %% handle_info/2: handle tcp,port,timeout msg 
  87. handle_info({tcp,Socket,RawData},State) ->
  88.     do_rpc(Socket,RawData),
  89.     RequestCount = State#state.request_count,
  90.     {noreply,State#state{request_count = RequestCount + 1}};
  91. handle_info(timeout,#state{lsock = LSock} = State) ->
  92.     {ok,_Sock} = gen_tcp:accept(LSock),
  93.     {noreply,State}.
  95. terminate(_Reason,_State) ->
  96.     ok.
  98. code_change(_OldVsn,State,_Extra) ->
  99.     {ok,State}.
  102. %%%===================================================
  103. %%% Internal functions
  104. %%%===================================================
  106. do_rpc(Socket,RawData) ->
  107.     try
  108.         {M,F,A} = split_out_mfa(RawData),
  109.         Request = apply(M,F,A),
  110.         gen_tcp:send(Socket,io_lib:fwrite("~p~n",[Request]))
  111.     catch
  112.         _Class:Err ->
  113.             gen_tcp:send(Socket,io_lib:fwrite("~p~n",[Err]))
  114.     end.
  116. split_out_mfa(RawData) ->
  117.      MFA = re:replace(RawData,"\r\n$","",[{return,list}]),
  118.     {match,[M,F,A]} =
  119.         re:run(MFA,
  120.              "(.*):(.*)\s*\\((.*)\s*\\)\s*.\s*$",
  121.              [{capture,[1,2,3],list},ungreedy]),
  122.     {list_to_atom(M),list_to_atom(F),args_to_terms(A)}.
  124. args_to_terms(RawArgs) ->
  125.     {ok,Toks,_Line} = erl_scan:string("[" ++ RawArgs ++ "]. ",1),
  126.     {ok,Args} = erl_parse:parse_term(Toks),
  127.     Args.
5、启动整个应用的开启模块 tr.erl

点击(此处)折叠或打开

  1. -module(tr).
  3. -export([start/0]).
  5. %%
  6. %% API Functions
  7. %%
  8. %% 启动应用
  9. start() ->
  10.     case application:start(tcp_rpc) of
  11.         ok ->
  12.             ok;
  13.         Msg ->
  14.             {failur, Msg}
  15.     end.
  17. %% 关闭应用
  19. stop() ->
  20. case application:stop(tcp_rpc) of
  21. ok ->
  22. ok;
  23. Msg ->
  24. {failure, Msg}
  25. end.
 
6、启动脚本 start_tr.sh (windows下为start_tr.bat)

点击(此处)折叠或打开

  1. erl -pa ebin -name tr@127.0.0.1 -setcookie tr -s tr start
  2. chmod +x start_tr.sh
  3. windows下的话，需要将erl这个程序加入到环境变量，否则就要使用绝对路径来应用erl程序
  
7、编译代码可以通过:
erlc -o ebin src/*.erl
或者利用Emakefile

点击(此处)折叠或打开

  1. { ["src/*"]
  2.     , [     
  3.         {outdir, "./ebin"}]
  4. }.

配合 erl -make 来编译这个应用。

 
8、启动。因为我们写了启动脚本和启动模块，所以不需要进入到erlang shell 里面启动这个应用，可以直接通过执行 start_tr.sh 来启动。
 
这里给出一个完整又简单的例子，希望可以对刚接触OTP知识的人有帮助。
  1.     , [     
  2.         {outdir, "./ebin"}]
  3. }.
配合 erl -make 来编译这个应用。
 
8、启动。因为我们写了启动脚本和启动模块，所以不需要进入到erlang shell 里面启动这个应用，可以直接通过执行 start_tr.sh 来启动。
 
这里给出一个完整又简单的例子，希望可以对刚接触OTP知识的人有帮助。
posted @ 2014-12-02 10:56  die  阅读(671)  评论(0)  编辑  收藏  举报