我应该对此类模块使用哪些 OTP 行为？

Question

我有一个简单的 erlang 模块，我想根据 OTP 原则重写它。但我无法确定我应该使用哪个 opt 模板。

模块代码：

-module(main).

-export([start/0, loop/0]).

start() -> 
    Mypid = spawn(main, loop, []),
    register( main, Mypid).

loop() ->
    receive
        [Pid, getinfo] -> Pid! [self(), welcome],
            io:fwrite( "Got ~p.~n", [Pid] ),
            // spawn new process here
            loop();
        quit -> ok;
        X ->
            io:fwrite( "Got ~p.~n", [ X ] ),
            // spawn new process here
            loop()
    end.

Answer 1

gen_server 会很好。

几件事：

• 向自己发送消息是一种不好的做法
• 消息通常是元组而不是列表，因为它们不是动态的
• 尽管您发表了评论，但您并未生成新进程。 调用 loop/0 进入同一个循环。

Gen_server init 将保存您的 start/0 正文。 API 调用序列并将您的调用通过 gen_server 代理到 handle_calls。要在函数调用上生成新进程，请将 spawn 函数添加到所需的 handle_call 的主体中。不要使用 handle_info 来处理传入的消息——而不是发送它们调用 gen_server API 并将您的调用“翻译”为 gen_server:call 或 cast。例如

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

init(_) ->
    {ok, #state{}}

welcome(Arg) ->
   gen_server:cast(?MODULE, {welcome, Arg}).

handle_cast({welcome, Arg},_,State) ->
  io:format("gen_server PID: ~p~n", [self()]),
  spawn(?MODULE, some_fun, [Arg]),
  {noreply, State}

some_fun(Arg) ->
  io:format("Incoming arguments ~p to me: ~p~n",[Arg, self()]).

我从来没有在上面编译过，但它应该给你的想法。