Избегайте состояния гонки в erlang

Question

Это как вы избегаете гонки?

-module(b). 
-export([my_spawn/1]). 



my_spawn(Func) -> 
    Pid = spawn(listener()), 
    Pid ! {self(), spawn, Func}, 
    receive 
     {From, Desired_Pid} -> Desired_Pid 
    end. 




listener() -> 

    receive 
     {From, spawn, Func} -> 
     {Pid,Ref} = spawn_monitor(Func), 
     From ! {self(), Pid}, 
     receive 
      {'DOWN',Ref, process, _, _} -> io:format("I lived for [calculated how long i lived]") 
     end 
    end. 

То, что я пытаюсь достичь здесь

A = spawn(proc), 
monitor(process,A). 

Однако может умереть прежде, чем выполняет второй линии.

Answer 1

Если вы породите процесс и он умирает как раз перед тем, как создать свой монитор, вы все равно получить DOWN сообщений:

1> Pid = spawn(erlang,now,[]). 
<0.35.0> 
2> is_process_alive(Pid). 
false 
3> monitor(process, Pid). 
#Ref<0.0.0.86> 
4> flush(). 
Shell got {'DOWN',#Ref<0.0.0.86>,process,<0.35.0>,noproc} 

В этой оболочке сессия показывает, мы первый нерест намеренно недолгий процесс, и мы используем is_process_alive, чтобы убедиться, что он мертв. Затем мы создаем монитор для процесса, а затем очищаем очередь сообщений оболочки и видим, что он действительно получил сообщение DOWN для уже умершего процесса.