2

我正在使用spawn_link但不了解它的行为。考虑以下代码：

-module(test).
-export([try_spawn_link/0]).

try_spawn_link() ->
  spawn(fun() ->
    io:format("parent: ~p~n", [Parent = self()]),
    Client = spawn_link(fun() ->
      io:format("child: ~p~n", [self()]),
      spawn_link_loop(Parent)
    end),
    spawn_link_loop(Client)
  end).

spawn_link_loop(Peer) ->
  receive
    quit ->
      exit(normal);
    Any ->
      io:format("~p receives ~p~n", [self(), Any])
  end,
  spawn_link_loop(Peer).

在Erlang 文档中，在调用进程和新进程之间创建了一个原子链接。但是，我测试如下，并没有注意到链接的效果。

1> test:try_spawn_link().
parent: <0.34.0>
<0.34.0>
child: <0.35.0>
2> is_process_alive(pid(0,34,0)).
true
3> is_process_alive(pid(0,35,0)).
true
4> pid(0,35,0) ! quit.
quit
5> is_process_alive(pid(0,35,0)).
false
6> is_process_alive(pid(0,34,0)).
true

1> test:try_spawn_link().
parent: <0.34.0>
<0.34.0>
child: <0.35.0>
2> is_process_alive(pid(0,34,0)).
true
3> is_process_alive(pid(0,35,0)).
true
4> pid(0,34,0) ! quit.
quit
5> is_process_alive(pid(0,35,0)).
true
6> is_process_alive(pid(0,34,0)).
false

据我了解，如果链接的一个对等点退出，则另一个对等点退出（或被通知退出）。但结果似乎与我的理解不同。

编辑：感谢legoscia和Pascal的回答。

4

2 回答 2

5

这是因为您选择了使用exit(normal). 在这种情况下，其他进程不会停止。例如，如果您使用，exit(killed)那么您将获得您所期望的行为。

您可以使用监视器来了解有关正常终止的信息。

于 2012-10-22T09:14:56.117 回答
4

正如Erlang 参考手册的“进程”一章的“错误处理”部分所述，只有在退出原因不是时，一个链接进程退出才会导致其链接进程退出normal。这就是 OTP 广泛使用shutdown退出原因的原因。

于 2012-10-22T09:15:05.490 回答