[erl] erlang 进程注册和注销

时间:2023-03-09 13:30:25
[erl] erlang 进程注册和注销
想要注册一个进程,必须先要创建一个进程。
  如何创建一个进程,可以使用spawn、spawn_link,它们虽然都能创建进程,但是也有微妙的区别:    
    1)当前进程中创建一个并行进程,当被生成的进程崩溃时,当前进程不会察觉
    Pid = spawn(Fun).
    2)如果当前进程创建的进程非正常的崩溃,当前进程也会跟着消失
    Pid = spawn_link(Fun).
  Erlang中管理注册进程的有4个内置函数,register、unregister、whereis、registered,它们的用法如下:  
    1)register(AnAtom, Pid):将一个进程Pid注册一个名为AnAtom的原子,如果原子AnAtom已经被另一个注册进程所使用,那么注册就会失败。
    2)unregister(AnAtom):移除与AnAtom相对应进程的所有注册信息。如果一个注册死亡,那么它也会被自动取消注册。
    3)whereis(AnAtom) -> Pid | undefined:判断AnAtom是否已经被其他进程注册。如果成功,则返回进程标识符Pid。如果AnAtom没有与之相对应的进程,那么就返回原子undefined。
    4)registered() -> [AnAtom ::atom()]:返回一个系统中所有已经注册的名称列表。
    此中所说原子不同与java中原子(我记得java中也有原子定义,和线程安全有关),它是一种识别标识。
例子:
-module(chat).
-export([start/0,stop/0]).
start() ->
  spawn(fun() ->
    register(chat_process,self()),
    process_flag(trap_exit,true),
    Port = open_port({spawn,"./chat"},[{packet,2}]),
    loop(Port)
  end).
stop() ->
  chat_process ! stop.
loop(Port) ->
  receive
    {call,Caller,Msg} ->
      Port ! {self(),{command,Msg}},
      receive
        {Port,{data,Data}} ->
          Caller ! {chat_process,Data}
      end,
      loop(Port);
    stop ->
      Port ! {self(),close},
      receive
        {Port,closed} ->
          exit(normal)
      end;
    {'EXIT',Port,Reason} ->
      exit({port_terminated,Reason})
  end.
其中,chat_process、call、data、port_terminated等就是一个原子.
当不需要这个注册进程时可以:unregister(chat_process).