如何分发受监督的gen_server工作人员?

时间:2016-12-02 20:36:56

标签: erlang elixir gen-server

您好我想实现分布式缓存作为练习。缓存模块基于gen_server。缓存由CacheSupervisor模块启动。起初我尝试在一个节点上运行它,效果很好。现在我试图在两个节点上分发我的缓存,这两个节点位于笔记本电脑上的两个打开的控制台窗口中。

PS:

在写这个问题时,我意识到我忘了将第三个窗口连接到其他节点。我修好了,但我仍然有原始错误。

控制台:

Node consoles

连接我的节点后,我在第三个窗口中调用CacheSupervisor.start_link(),这会产生以下错误消息。

错误:

** (EXIT from #PID<0.112.0>) shutdown: failed to start child: :de
    ** (EXIT) an exception was raised:
        ** (ArgumentError) argument error
            erlang.erl:2619: :erlang.spawn(:node1@DELL_XPS, {:ok, #PID<0.128.0>})
            (stdlib) supervisor.erl:365: :supervisor.do_start_child/2
            (stdlib) supervisor.erl:348: :supervisor.start_children/3
            (stdlib) supervisor.erl:314: :supervisor.init_children/2
            (stdlib) gen_server.erl:328: :gen_server.init_it/6
            (stdlib) proc_lib.erl:247: :proc_lib.init_p_do_apply/3

我猜这个错误表明我的缓存模块中的:gen_server.start_link(..)解析为start_link(name)这似乎是不正确的,但我不知道在哪里放{:ok, #PID<0.128.0>}其他

模块缓存:

Node.spawn()

模块CacheSupervisor:

defmodule Cache do
 use GenServer
 def handle_cast({:put, url, page}, {pages, size}) do
    new_pages = Dict.put(pages, url, page)
    new_size = size + byte_size(page)
    {:noreply, {new_pages, new_size}}
 end

 def handle_call({:get, url}, _from, {pages, size}) do
    {:reply, pages[url], {pages, size}}
 end

 def handle_call({:size}, _from, {pages, size}) do
    {:reply, size, {pages, size}}
 end
 def start_link(name) do
    IO.puts(elem(name,0))
    Node.spawn(String.to_atom(elem(name, 0)), :gen_server.start_link({:local,elem(name, 1)},  __MODULE__, {HashDict.new, 0}, []))
 end

 def put(name, url, page) do
    :gen_server.cast(name, {:put, url, page})
 end

 def get(name, url) do
    :gen_server.call(name, {:get, url})
 end

 def size(name) do
    :gen_server.call(name, {:size})
 end

end

1 个答案:

答案 0 :(得分:1)

:erlang.spawn(:node1@DELL_XPS, {:ok, #PID<0.128.0>})

:erlang.spawn/2Node.spawn/2功能相同。该函数需要节点名称(您提供的)和一个函数。您的GenServer.start_link调用返回{:ok,Pid}。因为元组不能像函数Node.spawn/2一样被处理。

我不建议像这样在单独的节点上生成进程。如果远程节点出现故障,您不仅会丢失群集中的该节点,而且还必须处理所有生成的进程的影响。这将导致应用程序比其他情况下更脆弱。如果您希望缓存GenServers在多个节点上运行,我建议运行您在多个节点上构建的应用程序,并在每个节点上拥有CacheSupervisor的实例。然后每个CacheSupervisor启动它自己的GenServers。这更加健壮,因为如果节点发生故障,其余节点将不受影响。当然,您的应用程序逻辑需要考虑到这一点,丢失节点可能意味着丢失缓存数据或客户端连接。有关详细信息,请参阅此答案:How does an Erlang gen_server start_link a gen_server on another node?

如果你真的想在这样的远程节点上进行生成过程,你可以这样做:

:erlang.spawn_link(:node1@DELL_XPS, fun() -> 
   {:ok, #PID<0.128.0>} = :gen_server.start_link({:local,elem(name, 1)}, __MODULE__, {HashDict.new, 0}, [])
   receive
     % Block forever
     :exit -> :ok
   end
end)

请注意,您必须使用spawn_link,因为主管希望链接到他们的孩子。如果主管没有链接,它将不知道孩子何时崩溃并且无法重启该过程。