Сбой руководителя Erlang OTP
-
03-10-2019 - |
Вопрос
Я работаю через документацию ERLANG, пытаясь понять основы создания OTP Gen_Server и Supervisor. Всякий раз, когда мой Gen_Server вылетает, мой руководитель аварии тоже. На самом деле, когда у меня есть ошибка в командной строке, мой супервизор сбоит.
Я ожидаю, что Gen_Server будет перезапущен, когда он вылетает. Я ожидаю ошибок командной строки иметь не имеет никакого отношения на моем сервере компонентов. Мой руководитель не должен падать вообще.
Код, с которым я работаю, является основным «эхо-сервером», который отвечает тем, что вы отправляете, и супервайзером, который будет перезапустить ECHO_SERVER 5 раз в минуту максимум (one_for_one). Мой код:
echo_server.erl.
-module(echo_server).
-behaviour(gen_server).
-export([start_link/0]).
-export([echo/1, crash/0]).
-export([init/1, handle_call/3, handle_cast/2]).
start_link() ->
gen_server:start_link({local, echo_server}, echo_server, [], []).
%% public api
echo(Text) ->
gen_server:call(echo_server, {echo, Text}).
crash() ->
gen_server:call(echo_server, crash)..
%% behaviours
init(_Args) ->
{ok, none}.
handle_call(crash, _From, State) ->
X=1,
{reply, X=2, State}.
handle_call({echo, Text}, _From, State) ->
{reply, Text, State}.
handle_cast(_, State) ->
{noreply, State}.
echo_sup.erl.
-module(echo_sup).
-behaviour(supervisor).
-export([start_link/0]).
-export([init/1]).
start_link() ->
supervisor:start_link(echo_sup, []).
init(_Args) ->
{ok, {{one_for_one, 5, 60},
[{echo_server, {echo_server, start_link, []},
permanent, brutal_kill, worker, [echo_server]}]}}.
Скомпилирован с использованием erlc *.erl
, И вот пробег образец:
Erlang R13B01 (erts-5.7.2) [source] [smp:2:2] [rq:2] [async-threads:0] [kernel-p
oll:false]
Eshell V5.7.2 (abort with ^G)
1> echo_sup:start_link().
{ok,<0.37.0>}
2> echo_server:echo("hi").
"hi"
3> echo_server:crash().
=ERROR REPORT==== 5-May-2010::10:05:54 ===
** Generic server echo_server terminating
** Last message in was crash
** When Server state == none
** Reason for termination ==
** {'function not exported',
[{echo_server,terminate,
[{{badmatch,2},
[{echo_server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p_do_apply,3}]},
none]},
{gen_server,terminate,6},
{proc_lib,init_p_do_apply,3}]}
=ERROR REPORT==== 5-May-2010::10:05:54 ===
** Generic server <0.37.0> terminating
** Last message in was {'EXIT',<0.35.0>,
{{{undef,
[{echo_server,terminate,
[{{badmatch,2},
[{echo_server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p_do_apply,3}]},
none]},
{gen_server,terminate,6},
{proc_lib,init_p_do_apply,3}]},
{gen_server,call,[echo_server,crash]}},
[{gen_server,call,2},
{erl_eval,do_apply,5},
{shell,exprs,6},
{shell,eval_exprs,6},
{shell,eval_loop,3}]}}
** When Server state == {state,
{<0.37.0>,echo_sup},
one_for_one,
[{child,<0.41.0>,echo_server,
{echo_server,start_link,[]},
permanent,brutal_kill,worker,
[echo_server]}],
{dict,0,16,16,8,80,48,
{[],[],[],[],[],[],[],[],[],[],[],[],[],[],[],
[]},
{{[],[],[],[],[],[],[],[],[],[],[],[],[],[],
[],[]}}},
5,60,
[{1273,79154,701110}],
echo_sup,[]}
** Reason for termination ==
** {{{undef,[{echo_server,terminate,
[{{badmatch,2},
[{echo_server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p_do_apply,3}]},
none]},
{gen_server,terminate,6},
{proc_lib,init_p_do_apply,3}]},
{gen_server,call,[echo_server,crash]}},
[{gen_server,call,2},
{erl_eval,do_apply,5},
{shell,exprs,6},
{shell,eval_exprs,6},
{shell,eval_loop,3}]}
** exception exit: {{undef,
[{echo_server,terminate,
[{{badmatch,2},
[{echo_server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p_do_apply,3}]},
none]},
{gen_server,terminate,6},
{proc_lib,init_p_do_apply,3}]},
{gen_server,call,[echo_server,crash]}}
in function gen_server:call/2
4> echo_server:echo("hi").
** exception exit: {noproc,{gen_server,call,[echo_server,{echo,"hi"}]}}
in function gen_server:call/2
5>
Решение
Наблюдатели на тестирование проблем от оболочки состоит в том, что процесс руководителя связан с процессом оболочки. Когда процесс Gen_Server сбивает сигнал выхода, распространяется до оболочки, который вылетает и перезапускается.
Чтобы избежать проблемы, добавьте что-то вроде этого руководителю:
start_in_shell_for_testing() ->
{ok, Pid} = supervisor:start_link(echo_sup, []),
unlink(Pid).
Другие советы
Я бы предложил вам Отладка / след Ваше заявление, чтобы проверить, что происходит. Это очень полезно в понимании того, как все работает в OTP.
В вашем случае вы можете сделать следующее.
Начните трасле:
dbg:tracer().
Проследить все вызовы функций для вашего руководителя и вашего Gen_Server:
dbg:p(all,c).
dbg:tpl(echo_server, x).
dbg:tpl(echo_sup, x).
Проверьте, какие сообщения проходят процессы:
dbg:p(new, m).
Посмотрите, что происходит с вашими процессами (Crash, и т. Д.):
dbg:p(new, p).
Для получения дополнительной информации о трассировке:
http://www.erlang.org/doc/man/dbg.html.
http://aloiroberto.wordpress.com/2009/02/23/tracing-erlang-functions/
Надеюсь, это может помочь для этой и будущей ситуации.
НАМЕКАТЬ: Поведение Gen_Server ожидает, что завершится ограничение обратного вызова / 2 для определения и экспорта;)
ОБНОВИТЬ: После определения завершить / 2 Причина аварии очевидна из следа. Вот как это выглядит:
Мы (75) вызовите функцию Crash / 0. Это получено Gen_Server (78).
(<0.75.0>) call echo_server:crash()
(<0.75.0>) <0.78.0> ! {'$gen_call',{<0.75.0>,#Ref<0.0.0.358>},crash}
(<0.78.0>) << {'$gen_call',{<0.75.0>,#Ref<0.0.0.358>},crash}
(<0.78.0>) call echo_server:handle_call(crash,{<0.75.0>,#Ref<0.0.0.358>},none)
Э-э, проблема на ручке вызов. У нас есть бэдматч ...
(<0.78.0>) exception_from {echo_server,handle_call,3} {error,{badmatch,2}}
Функция завершения называется. Отказ Сервер выходит, и он становится незарегистрированным.
(<0.78.0>) call echo_server:terminate({{badmatch,2},
[{echo_server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p_do_apply,3}]},none)
(<0.78.0>) returned from echo_server:terminate/2 -> ok
(<0.78.0>) exit {{badmatch,2},
[{echo_server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p_do_apply,3}]}
(<0.78.0>) unregister echo_server
Наблюдатель (77) приходит выходной сигнал от Gen_Server и делает свое задание:
(<0.77.0>) << {'EXIT',<0.78.0>,
{{badmatch,2},
[{echo_server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p_do_apply,3}]}}
(<0.77.0>) getting_unlinked <0.78.0>
(<0.75.0>) << {'DOWN',#Ref<0.0.0.358>,process,<0.78.0>,
{{badmatch,2},
[{echo_server,handle_call,3},
{gen_server,handle_msg,5},
{proc_lib,init_p_do_apply,3}]}}
(<0.77.0>) call echo_server:start_link()
Ну, он пытается ... так как это происходит, что сказал Филиппо ...
С другой стороны, если вообще перезапуская стратегия должна быть проверена изнутри консоли, используйте консоль для запуска руководителя и проверять с PMAN, чтобы убить процесс.
Вы увидите, что Pman обновляет тот же Supervisor PID, но с разными работами работника, в зависимости от MaxR и MAXT, вы установили в Restart-Strategy.