Erlang OTP主管
我正在从Erlang编程的书中练习练习12-2。 我有一个实现OTP gen_server行为的模块db_server_otp 。 作为一个独立的模块，我已经测试过它，它按预期工作。 我现在必须为它添加一个主管。 根据本章中的示例，我创建了一个模块db_server_sup ，如下所示：
-module(db_server_sup).
-export([start/0,init/1]).
-behavior(supervisor).
start() ->
supervisor:start_link({local, ?MODULE}, ?MODULE, []).
init(_Arguments) ->
DbServerOtp = {db_server_otp, %% Id
{db_server_otp, start, []}, %% child process
permanent, %% restart
30000, %% shutdown (ms)
worker, %% type
{db_server_otp}}, %% required modules
{ok,
{{one_for_all, %% terminate all children and restart
5, %% max of n restarts in MaxSeconds
3600}, %% MaxSeconds (s)
[DbServerOtp]}}. %% child process list
两个模块都位于同一个目录中，并且我使用.beam文件编译了这两个模块，这些文件位于启动erlang shell的相同工作目录中。 但是，对于erlang shell，我无法启动主管。
Erlang R13B03 (erts-5.7.4) [source] [64-bit] [smp:8:2] [rq:8] [async-threads:0] [hipe] [kernel-poll:false]
Eshell V5.7.4 (abort with ^G)
1> c(db_server_otp).
./db_server_otp.erl:5: Warning: undefined callback function code_change/3 (behaviour 'gen_server')
./db_server_otp.erl:5: Warning: undefined callback function handle_info/2 (behaviour 'gen_server')
{ok,db_server_otp}
2> c(db_server_sup).
{ok,db_server_sup}
3> db_server_sup:start().
** exception exit: {start_spec,{invalid_modules,{db_server_otp}}}
我必须导入db_server_otp模块吗？ 如果是这样，我必须导入哪些函数？ 我在db_server_otp中导出所有OTP方法：
-module(db_server_otp).
-export([start/0,stop/0]).
-export([write/2,read/1,delete/1,match/1]).
-export([init/1,terminate/2,handle_cast/2,handle_call/3]).
-behavior(gen_server).
'需要的模块'应该是一个列表，而不是一个元组。
尝试使用：
DbServerOtp = {db_server_otp, %% Id
{db_server_otp, start, []}, %% child process
permanent, %% restart
30000, %% shutdown (ms)
worker, %% type
[db_server_otp]}, %% required modules
风格的约定：在db_server_sup和db_server_otp看到启动函数都会创建应该称之为start_link链接。 这是一个常见的惯例。