ERLANG/OTP学习 Day5

错误记录器

        OTP系统自带一个可定制的错误记录器。可以从三个角度看待错误记录器：程序员视角关心 程序员为了记录错误而在代码里中做的函数调用；配置视角关心错误记录器在何处以及如何保存 数据；报告视角关心对已发生错误的分析。

向错误记录器发送一个错误消息。

向错误记录器发送一个错误消息。它的参数和io:format(Format, Data)相同。 

向错误记录器发送一个标准错误报告。 

 

监控树是一种由进程组成的树形结构。树的上级进程（监控器）监视着下级进程（工作器）， 如果下级进程挂了就会重启它们 。

一对一监控树 在一对一监控里，如果某个工作器崩溃了，就会被监控器重启。

在一对多监控里，如果任何一个工作器崩溃了，所有工作进程都会被终止（通过调用相 应回调模块里的terminate/2函数）然后重启。

监控器是用OTP supervisor行为创建的。这个行为用一个回调模块作为参数，里面指定了监 控策略以及如何启动监控树里的各个工作进程。

area_server

-module(area_server).
-author("chen").

-behavior(gen_server).
%% API
-export([init/1, handle_call/3, handle_cast/2, start_link/0, compute_area/1, code_change/3]).
-export([terminate/2, area/1]).

start_link()->
  gen_server:start_link({local,?MODULE},?MODULE,[],[]).

area(Thing)->
  gen_server:call(?MODULE,{area,Thing}).

init([]) ->
  process_flag(trap_exit,true),
  io:format("~p starting~n", [?MODULE]),
  {ok,0}.

handle_call({area, Thing}, _From, N) ->
  {reply,compute_area(Thing),N+1}.

handle_cast(_Msg, N) ->
  {noreply,N}.

terminate(_Reason,_N)->
  io:format("~p stopping~n",[?MODULE]),
  ok.

code_change(_OldVsn,N ,_Extra)->{ok,N}.

compute_area({square, X})->X*X;
compute_area({rectongle, X,Y})->X*Y.

 Worker的格式如下

{Tag,{Mod,Func,ArgList},
    Resstart,
    Shutdown,
    Type,
    [Mod1]}

 其中Tag 是一个原子类型的标签。

        {Mod, Func, ArgList}定义监视器用于启动工作器的函数，将被用作apply(Mod, Fun, ArgList)的参数。

Restart = permanent | transient | temporary   

        permanent（永久）进程总是会被重启。

        transient（过渡）进程只有在以非正常退出值终止时才会被重启。temporary（临时）进程不会被重启。

        Shutdown 这是关闭时间，也就是工作器终止过程允许耗费的最长时间。如果超过这个时间，工作 进程就会被杀掉。

        Type = worker | supervisor 这是被监控进程的类型。

        [ Mod1] 当子进程是监控器或者gen_server行为的回调模块时，指定回调模块名。

sellaprime_supervisor

-module(sellaprime_supervisor).
-author("chen").

%% API
-export([init/1, start_link/1, start_in_shell_for_testing/0, start/0]).
start()->
  spawn(fun()->
  supervisor:start_link({local, ?MODULE},?MODULE,_Arg=[]) end).

start_in_shell_for_testing() ->
  {ok,Pid}= supervisor:start_link({local,?MODULE},?MODULE,_Arg=[]),
  unlink(Pid).

start_link(Args)->
  supervisor:start_link({local,?MODULE},?MODULE,Args).

init([])->
  gen_event:swap_handler(alarm_handler,{alarm_handler,swap}, {my_alarm_handler,xyz}),
  {ok,{{one_for_one,3,10},
    [{tag1,
      {area_server,start_link,[]},
      permanent,
      10000,
      worker,
      [area_server]},
    {tag2,
      {prime_server,start_link,[]},
      permanent,
      10000,
      worker,
      [prime_server]}
      ]}}.

面积服务器崩溃了，我们触发了有意设置的错误。监控器检测到这次崩溃并重启了面 积服务器。

现在服务器又能正常运行。