erlang学习：用OTP构建系统4，监控树学习

news2025/10/31 8:44:19

监控树学习

之前写的server程序，如果产生了错误，server会立刻停止。本次学习使用了监控树，能够让server崩溃时打印错误信息并重启服务器，能够使服务器正常使用

-module(sellaprime_supervisor).
-behaviour(supervisor).
-export([start/0, test/0, start_link/1, init/1]).

start() ->
  spawn(fun() ->
    supervisor:start_link({local, ?MODULE}, ?MODULE, _Arg = [])
        end).

test() ->
  {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,        %%Tag 这是一个原子类型的标签，将来可以用它指代工作进程。
      {area_server, start_link, []},  %%{Mod, Func, ArgList} 它定义了监控器用于启动工作器的函数，将被用作apply(Mod, Fun, ArgList)的参数。
      permanent,   %%permanent（永久）进程总是会被重启。transient（过渡）进程只有在以非正常退出值终止时才会被重启。temporary（临时）进程不会被重启
      10000,    %%工作器终止过程允许耗费的最长时间。如果超过这个时间，工作进程就会被杀掉。
      worker,    %%这是被监控进程的类型。可以用监控进程代替工作进程来构建一个由监控器组成的树
      [area_server]},  %%如果子进程是监控器或者gen_server行为的回调模块，就在这里指定回调模块名。
      %%第二个模块
      {tag2,
        {prime_server, start_link, []},
        permanent,
        10000,
        worker,
        [prime_server]}
    ]}}.