首页 > 代码库 > erlang supervisor中启动普通的进程
erlang supervisor中启动普通的进程
http://www.cnblogs.com/little-ant/p/3192968.html
文字部分转自： http://1234n.com/?post/qou3eb
supervisor的子进程
一开始使用supervisor的时候，我用的是init/1返回子进程规格列表的方式，并且所有子进程只有两种类型，一种是supervisor进程，一种是gen_server。
但这次代码重构中，我遇到一个情况。如果我可以启动普通的进程而不是gen_server，我就可以把一些我觉得没必要做成gen_server的模块代码精简掉。因为一些模块代码完全没用到任何gen_server的优势，只是借gen_server来做为supervisor的子进程启动。于是我便开始实验如何在supervisor中启动普通的进程。
通过实验，我发现我原先对supervisor的理解完全是没有根据的猜测，果然实践才是检验真理的唯一标准。
首先，我原以为supervisor的子进程规格中提供的Module、Function、Arguments就是子进程的入口，supervisor会通过它来自己启动子进程。但实际上，子进程规格提供的是子进程的启动函数入口，supervisor通过调用这个入口函数来启动子进程，而这个函数通过返回{ok, Pid}来告诉supervisor子进程创建成功。
其次，并不是简单的通过spawn在子进程启动函数中启动一个进程然后返回{ok, Pid}就可以让子进程拥有出错自动重启的功能。实际上，需要使用proc_lib:spawn_link或者proc_lib:start_link启动子进程，才能在子进程出错退出时让supervisor自动重启它。
上面的第二点，我是通过阅读gen_server的代码才了解到的，因为一开始我用来做实验的代码没有用spawn（因为第一点的错误理解），但这个问题很容易就发现了，接着我用了spawn看似正确启动了子进程，但实际上这些子进程一旦出错退出就不会再被启动。我换gen_server实验了一遍，确信用gen_server是可以重启的。于是我便阅读gen_server:start_link的代码一探究竟，从源码中可以看到gen_server模块调用gen模块来启动进程，而gen模块最终通过proc_lib:start_link来启动进程。
proc_lib:start_link和proc_lib:spawn_link的不同之处在于，前者是同步创建子进程，后者是异步创建子进程，proc_lib:start_link调用后会阻塞，直到子进程初始化完毕，调用proc_lib:init_ack后才返回。而proc_lib:spawn_link一调用就会立即返回子进程ID。
测试代码(其中有和主题无关的测试代码，请大家无视)：
parent_sup.erl
-module(parent_sup).-behaviour(supervisor).-export([start_link/0]).-export([init/1]).start_link() -> supervisor:start_link(?MODULE, []).init(Args) -> {ok, {{one_for_one, 1, 60}, [%%{child, {child, start_link, ["hello"]}, %% permanent, brutal_kill, worker, [child]}, {parent, {parent, start_link, ["args"]}, permanent, brutal_kill, worker, [parent]} ]}}.parent.erl
-module(parent).-export([start_link/1]).-export([start_loop/1]).start_link(Args) -> io:format("~p~n", [Args]), Ret = proc_lib:start_link(?MODULE, start_loop, [self()]), io:format("~p~n", [Ret]), Ret.start_loop(Parent) -> proc_lib:init_ack(Parent, {ok, self()}), loop().loop() -> receive Args -> io:format("~p~n", [Args]) end.测试命令：
erl -boot start_sasl
22> c(parent).
{ok,parent}
23> c(parent_sup). parent_sup.erl:10: Warning: variable ‘Args‘ is unused{ok,parent_sup}24> c(parent). {ok,parent}25> parent_sup:start_link()."args"{ok,<0.123.0>}=PROGRESS REPORT==== 16-Jul-2013::11:05:24 === supervisor: {<0.122.0>,parent_sup} started: [{pid,<0.123.0>}, {name,parent}, {mfargs,{parent,start_link,["args"]}}, {restart_type,permanent}, {shutdown,brutal_kill}, {child_type,worker}]{ok,<0.122.0>}26> exit(pid(0,123,0), some_reason).=SUPERVISOR REPORT==== 16-Jul-2013::11:06:28 === Supervisor: {<0.122.0>,parent_sup} Context: child_terminated Reason: some_reason Offender: [{pid,<0.123.0>}, {name,parent}, {mfargs,{parent,start_link,["args"]}}, {restart_type,permanent}, {shutdown,brutal_kill}, {child_type,worker}]=SUPERVISOR REPORT==== 16-Jul-2013::11:06:28 === Supervisor: {<0.122.0>,parent_sup} Context: shutdown Reason: reached_max_restart_intensity Offender: [{pid,<0.123.0>}, {name,parent}, {mfargs,{parent,start_link,["args"]}}, {restart_type,permanent}, {shutdown,brutal_kill}, {child_type,worker}]** exception exit: shutdown27> c(parent). {ok,parent}28> c(parent_sup). parent_sup.erl:10: Warning: variable ‘Args‘ is unused{ok,parent_sup}29> parent_sup:start_link(). "args"{ok,<0.138.0>}=PROGRESS REPORT==== 16-Jul-2013::11:07:19 === supervisor: {<0.137.0>,parent_sup} started: [{pid,<0.138.0>}, {name,parent}, {mfargs,{parent,start_link,["args"]}}, {restart_type,permanent}, {shutdown,brutal_kill}, {child_type,worker}]{ok,<0.137.0>}30> exit(pid(0,138,0), some_reason)."args"=SUPERVISOR REPORT==== 16-Jul-2013::11:07:28 === Supervisor: {<0.137.0>,parent_sup} Context: child_terminated Reason: some_reason Offender: [{pid,<0.138.0>}, {name,parent}, {mfargs,{parent,start_link,["args"]}}, {restart_type,permanent}, {shutdown,brutal_kill}, {child_type,worker}]{ok,<0.140.0>}=PROGRESS REPORT==== 16-Jul-2013::11:07:28 === supervisor: {<0.137.0>,parent_sup} started: [{pid,<0.140.0>}, {name,parent}, {mfargs,{parent,start_link,["args"]}}, {restart_type,permanent}, {shutdown,brutal_kill}, {child_type,worker}]true31>
erlang supervisor中启动普通的进程