Erlang简单服务器问题

Question

当我学习 Erlang 时，我正在尝试解决 ex. 4.1（“Echo 服务器”）来自“Erlang 编程”一书（O'Reilly 着），我遇到了问题。 我的代码如下所示：

-module(echo).
-export([start/0, print/1, stop/0, loop/0]).

start() ->
    register(echo, spawn(?MODULE, loop, [])),
    io:format("Server is ready.~n").

loop() ->
    receive
        {print, Msg} ->
            io:format("You sent a message: ~w.~n", [Msg]),
            start();
        stop ->
            io:format("Server is off.~n");
        _ ->
            io:format("Unidentified command.~n"),
            loop()
    end.

print(Msg) -> ?MODULE ! {print, Msg}.

stop() -> ?MODULE ! stop.

不幸的是，我有一些问题。打开按预期工作，它会生成一个新进程并显示“服务器已准备就绪”消息。但是，当我尝试使用打印功能（例如 echo:print("Some message."). ）时，我得到了结果，但它并不像我想要的那样工作。它将我的消息打印为列表（而不是字符串）并生成

=ERROR REPORT==== 18-Jul-2010::01:06:27 ===
Error in process <0.89.0> with exit value: {badarg,[{erlang,register,[echo,<0.93.0>]},{echo,start,0}]}

错误消息。 此外，当我尝试通过 echo:stop() 停止服务器时，我收到另一个错误

** exception error: bad argument
 in function  echo:stop/0

有人可以解释一下，这里发生了什么？我是 Erlang 新手，目前对我来说似乎很难掌握。

Answer 1

当您的 loop/0 函数收到 print 消息时，您再次调用 start/0 ，这会产生新进程并尝试将其注册为 echo再次。它会导致您的服务器挂掉，并且新服务器未注册为 echo，因此您无法再通过 print/1 函数向其发送消息。

loop() ->
    receive
        {print, Msg} ->
            io:format("You sent a message: ~w.~n", [Msg]),
            loop();   % <-- just here!
        stop ->
            io:format("Server is off.~n");
        _ ->
            io:format("Unidentified command.~n"),
            loop()
    end.