Erlang: Betreuer(3), das hinzufügen eines Kind-Prozesses

Habe ich einige der Forschung, und unten ist das, was ich habe.

Erste, dies ist ein Beispiel-callback-Modul-Betreuer:

-module(root_sup).
-behaviour(supervisor).
-export([start_link/0]).
-export([init/1]).

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

init(_Args) ->
     RestartStrategy = {simple_one_for_one, 10, 60},
     ChildSpec = {ch1, {ch1, start_link, []},
          permanent, brutal_kill, worker, [ch1]},
     Children = [ChildSpec],
     {ok, {RestartStrategy, Children}}.

- Und das ist ein callback-Modul eines Kindes, die Hinzugefügt werden, um die suprervision Baum dynamisch:

-module(ch1).

-behaviour(gen_server).

% Callback functions which should be exported
-export([init/1]).
-export([handle_cast/2]).

% user-defined interface functions
-export([start_link/0]).

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

init(_Args) ->
     io:format("ch1 has started (~w)~n", [self()]),
     % If the initialization is successful, the function
     % should return {ok,State}, {ok,State,Timeout} ..
     {ok, ch1State}.

handle_cast(calc, State) ->
     io:format("result 2+2=4~n"),
     {noreply, State};
handle_cast(calcbad, State) ->
     io:format("result 1/0~n"),
     1 /0,
     {noreply, State}.

Dies ist, wie wir beginnen in der Regel die Betreuerin:

1> ch_sup:start_link().
{ok,<0.33.0>}

Nun beginnen wir unsere erste Kind-Prozess:

2> {ok, Child1Pid} = supervisor:start_child(ch_sup, []).
ch1 has started (<0.35.0>)
{ok,<0.35.0>}

Können Sie dynamisch starten von child-Prozessen; beginnen wir ein weiteres Kind:

3> {ok, Child2Pid} = supervisor:start_child(ch_sup, []).
ch1 has started (<0.37.0>)
{ok,<0.37.0>}

Können Sie sehen, dass unsere Prozesse haben (Hinweis: die letzten beiden):

4> erlang:processes().
[<0.0.0>,<0.2.0>,<0.4.0>,<0.5.0>,<0.7.0>,<0.8.0>,<0.9.0>,
 <0.10.0>,<0.11.0>,<0.12.0>,<0.13.0>,<0.14.0>,<0.15.0>,
 <0.16.0>,<0.17.0>,<0.18.0>,<0.19.0>,<0.20.0>,<0.21.0>,
 <0.22.0>,<0.23.0>,<0.24.0>,<0.25.0>,<0.26.0>,<0.27.0>,
 <0.31.0>,<0.33.0>,<0.35.0>,<0.37.0>]

Nun wollen wir unser erstes Kind Prozess etwas tun:

5> gen_server:cast(Child1Pid, calc).
result 2+2=4
ok

So weit, So gut. Jetzt machen wir unser erstes Kind zu bewerten, einige schlechte-code:

6> gen_server:cast(Child1Pid, calcbad).
result 1/0
ok    
7> 
=ERROR REPORT==== 10-Feb-2011::01:32:15 ===
** Generic server <0.35.0> terminating 
** Last message in was {'$gen_cast',calcbad}
** When Server state == ch1State
** Reason for termination == 
** {'function not exported',
       [{ch1,terminate,
            [{badarith,
                 [{ch1,handle_cast,2},
                  {gen_server,handle_msg,5},
                  {proc_lib,init_p_do_apply,3}]},
             ch1State]},
        {gen_server,terminate,6},
        {proc_lib,init_p_do_apply,3}]}
ch1 has started (<0.42.0>)
7>

In den Bericht können Sie sehen, dass die division durch null verursacht eine Ausnahme, und der Prozess wurde beendet. Aber der Betreuer kümmert sich um Sie, und sofort beginnt ein anderes Kind-Prozess (Hinweis: die Letzte Zeile).

Können wir damit überprüfen, um sicherzustellen, dass das andere Kind Prozess, den wir begonnen, die zuvor noch lebendig (Hinweis:<0.37.0>):

7> erlang:processes().                 
[<0.0.0>,<0.2.0>,<0.4.0>,<0.5.0>,<0.7.0>,<0.8.0>,<0.9.0>,
 <0.10.0>,<0.11.0>,<0.12.0>,<0.13.0>,<0.14.0>,<0.15.0>,
 <0.16.0>,<0.17.0>,<0.18.0>,<0.19.0>,<0.20.0>,<0.21.0>,
 <0.22.0>,<0.23.0>,<0.24.0>,<0.25.0>,<0.26.0>,<0.27.0>,
 <0.31.0>,<0.33.0>,<0.37.0>,<0.42.0>]
8>

Können wir ihn sogar dazu bringen, etwas zu tun für uns:

8> gen_server:cast(Child2Pid, calc).   
result 2+2=4
9>

Folgenden sind die Erlang-manual pages, die Sie wollen, um zu Lesen:

• Vorgesetzten Verhalten
• supervisor(3)
• gen_server(3)