Erlang退出函数？

Question

我想写一个简单地杀死我的程序的函数。它被称为quitChat。但是，当我调用函数messenger:quitChat()时，出现此错误。

** exception error: bad argument 
    in function exit/2 
     called as exit(undefined,kill) 
    in call from messenger:quitChat/0 (messenger.erl, line 26) 

到目前为止我使用这段代码：

-module(messenger). 
-export([start_server/0, server/1, logon/1, logoff/0, message/2, client/2, 
requestChat/1, quitChat/0]). 

server_node() -> 
    messenger@timberlake. 

server(User_List) -> 
    receive 
     {From, logon, Name} -> 
      New_User_List = server_logon(From, Name, User_List), 
      server(New_User_List); 
     {From, logoff} -> 
      New_User_List = server_logoff(From, User_List), 
      server(New_User_List); 
     {From, message_to, To, Message} -> 
      server_transfer(From, To, Message, User_List), 
      io:format("list is now: ~p~n", [User_List]), 
      server(User_List) 
    end. 

start_server() -> 
    register(messenger, spawn(messenger, server, [[]])). 

quitChat() -> 
    exit(whereis(messenger), kill). 

Answer 1

使用erlang:halt/0,1。

Documentation

Answer 2

更改您的quitChat这样：

quitChat() -> 
    case whereis(messenger) of 
     undefined -> ok; % No registered process with name messenger 
     Pid -> exit(Pid, kill) 
    end.