一、在写日记之前，我先给说下今天要记的东西(一套OTP构建的系统所包含的东西)
1.监控树(supervision tree)
之前学过并发编程中的错误处理，try...catch但是我们不一定可以捕获到所有的错误，毕竟bug总是神出鬼没的，这个时候我们就需要监控树了，通过监控树监控进程，可以在进程崩溃的时候重启他们
2.OTP的错误记录器
当服务器确实崩溃了，然后又重启了，我们不可能24小时呆在服务器旁边，这个时候就需要错误记录起给我们把这些错误记录下来，但是关于错误记录起的东西，这里不会记录，因为大部分都是贴配置代码的事情，加上启动\关闭\查看三个功能
3.gen_server创建服务器
这个在二十二章说过
4.检测警报
使用OTP事件处理框架gen_event来生成和处理警报
5.应用程序
一个应用资源文件(.app)它包含了关于这套应用程序的信息，通过应用程序我们可以将各个模块联系起来同一开启和停止
二、检测警报与管理
(1).用erl -boot start_sasl 启动erlang后就可以得到一个标准的警报处理器，可以说是默认的警报处理器，当发现警报时他什么都不干
(2).设置自定义的警报处理器如下代码是我们自定义的警报处理器,和gen_server相似，他有固定的一套回调函数
-module(my_alarm_handler).
-behaviour(gen_event).
-export([..]).
%init(Args)返回{ok,State}
init(Args)->
{ok,0}.
handle_event({set_alarm,tooHot},State)->
%do something here
{ok,State}.
handle_call(_Req,State)->{ok,Reply,State}.
handle_info(_Info,State)->{ok,N}.
terminate(_Reason,State)->ok.
code_change(_OldVsn,State,_Extra)->{ok,State}.
(3).现在我们来应用我们的自定义警报处理器
2> gen_event:swap_handler(alarm_handler,{alarm_handler,swap},{my_alarm_handler,[]}).
%然后就会调用init函数，我们通过调用接口函数设置警报可以触发回调函数handle_event去处理警报
三、监控树
监控树是一种有进程组成的树形结构，树的上级进程监视着下级进程，有两种模式，一对一(on_for_one)和一对多(on_for_all),被监控的进程如果崩溃了，就会被监控器触发进程的terminate函数并重启
来写一个监控器程序：
-module(my_supervisor).
-behaviour(supervisor).
-export([..]).
start()->
spawn(fun()->
supervisor:start_link({local,?MODULE},?MODULE,[]) end ).
init([])->
%在这里可以安装一下警报处理器
%一下是设置进程策略,也就是返回给监控树框架的东西
{ok,{one_for_one,3,10},
[{tag1,
{job_center,start_link,[]},
permanent,
10000,
worker,
[job_center]},
[{tag2,
{another_server_process,startFunction,[Args]},
permanent,
10000,
worker,
[another_server_process]
]}}.
%% 参数意义如下:
%% {Tag,{Mod,Func,ArgList},Restart,Shutdown,Type,[Mod1]} 这是一个监控器服务器
四、应用程序
1.应用程序资源文件(my_app_name.app)
{application,my_app_name, %我们给这个应用程序起的名字
[{description,"i don't know say what"},
{vsn,"1.0"},
{modules,[...]}%包含的模块列表如job_center,my_alarm_handler,my_supervisor,当然还有后面的应用程序模块my_resource_mod
{registered,[...]}%所有模块中注册的名称
{applications,[kernel,stdlib]},
{mod,{my_resource_mod,[]}}
{start_phases,[]}
]
}.
2.应用程序my_resource_mod.erl
-module(my_resource_mod).
-behaviour(application).
-export([]).
start(_Type,Args)->
my_supervisor:start_link(Args).
stop(_State)->
ok.
我们通过在shell中application:load(my_app_name)来加载这个应用程序，
通过application:start(my_app_name)来启动这套程序
通过application:stop(my_app_name)来停止这套程序
网友评论