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: shutdown 27> 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}] true 31>