Question

我关注http://learnyousomeerlang.com/static/erlang/kitty_gen_server.erl。

我在temple.erl中有我的应用程序逻辑。所有这些代码都经过测试和测试。按照我的预期运行。我的land.erl旨在成为包含Temple的服务器。

我的理解（请纠正任何无知）是我可以使用gen_server抽象消息传递并以最小的开销跟踪状态。

我理解我的init函数中的第二个元组值

init([]) -> {ok, temple:new()}.是我服务器的状态 - 在这种情况下，是temple:new()的返回值。

所以我c(land)。（下面的代码），试试这个：

19> {ok, Pid2} = land:start_link().
{ok,<0.108.0>}
20> land:join(Pid2, a).
ok

当我发送加入消息时，我只是让原子恢复正常从阅读代码并比较运行kitty_gen_server的经验，我认为状态是使用值temple:join(Temple, Name)正确更新的，但是ok原子是

的响应值

handle_call({join, Name}, _From, Temple) ->
{reply, ok, temple:join(Temple, Name)};

如何使用temple更新我的状态：join（Temple，Name），然后将此值返回给客户端？我不想两次调用相同的函数，例如。

handle_call({join, Name}, _From, Temple) ->
{reply, temple:join(Temple, Name), temple:join(Temple, Name)};

所以看着我试过的kitty_gen_server

handle_call({join, Name}, _From, Temple) ->
[{reply, JoinedTemple, JoinedTemple} || JoinedTemple <- temple:join(Temple, Name)];

当我尝试使用关于语法错误||的消息时，我得到一个函数子句崩溃，然后我看到这仅用于列表推导..

如何计算temple:join(Temple, Name)]的值并返回土地的来电者：加入并更新土地的状态？

-module(land).
-behaviour(gen_server).

-export([start_link/0, join/2, input/3, fight/1]).
-export([init/1, handle_call/3, handle_cast/2, handle_info/2,
         terminate/2, code_change/3]).

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

join(Pid, Name) ->
   gen_server:call(Pid, {join, Name}).

input(Pid, Action, Target) ->
    gen_server:call(Pid, {input, Action, Target}).

fight(Pid) ->
    gen_server:call(Pid, fight).

init([]) -> {ok, temple:new()}.

handle_call({join, Name}, _From) ->
  {reply, ok, temple:join(Name)}.
handle_call({join, Name}, _From, Temple) ->
  {reply, temple:join(Temple, Name), temple:join(Temple, Name)};
handle_call(terminate, _From, Temple) ->
    {stop, normal, ok, Temple}.

handle_info(Msg, Temple) ->
    io:format("Unexpected message: ~p~n",[Msg]),
    {noreply, Temple }.

terminate(normal, Temple) ->
    io:format("Temple bathed in blood.~p~n", [Temple]),
    ok.

code_change(_OldVsn, State, _Extra) ->
    {ok, State}. 

handle_cast(_, Temple) ->
    {noreply, Temple}.

Answer 1

您可以将新状态存储在变量中，然后返回包含该变量的元组两次：

handle_call({join, Name}, _From, Temple) ->
  NewTemple = temple:join(Temple, Name),
  {reply, NewTemple, NewTemple};

从gen_server演员返回状态

1 个答案: