Question

我正在尝试学习Erlang和OTP，因此我目前正在尝试处理gen_server。

我写了一个快速的gen_server实现：

-module(test).
-behavior(gen_server).

%% API
-export([start/0, add/1]).
-export([init/1, terminate/2, code_change/3, handle_call/3, handle_cast/2, handle_info/2]).

start() -> gen_server:start_link(?MODULE, [], []).
add(Value) -> gen_server:call(self(), {add, Value}).

%% Gen_Server
init(_Arguments) ->  {ok, []}.
terminate(_Reason, _State) -> ok.
code_change(_PreviousVersion, State, _) -> {ok, State}.

handle_call({add, Value}, _From, State) -> {reply, ok, [Value|State]}.
handle_cast(_Arg0, State) ->  {noreply, State}.
handle_info(Info, State) -> io:format("Unexpected message: ~p~n",[Info]), {noreply, State}.

问题是add/1调用超时而不是返回ok：

1> {ok, Pid} = test:start().
{ok,<0.33.0>}
2> Pid ! abc.
Unexpected message: abc
abc
3> test:add(3).
** exception exit: {timeout,{gen_server,call,[<0.31.0>,{add,3}]}}
     in function  gen_server:call/2 (gen_server.erl, line 204)
4> Pid ! abc.
abc

我做错了什么？当我运行gen_server:call/2时，看起来服务器不再运行。

Answer 1

您在self()传递test:add作为gen_server的pid，这是不正确的。 self()将评估您拨打电话时所处的REPL流程的pid。

您可以简单地将gen_server pid作为参数添加到test:add，因为您是从test:start()获取的。

为什么我的gen_server实现会超时？

1 个答案: