流程创建问题

Question

我正在建设一个停车场，有 2 个入口门和 1 个可以离开公园的大门。对我来说，一切看起来都很好，但我收到了类似的错误

Error in process <0.84.0> with exit value: {badarg,[{parking,car,2},{random,uniform,0}]}

我的代码是：

-module (parking2).
-export ([start/3]).
-export ([car/2, parkingLoop/1]).

carsInit(0, _Iterations) ->
    ok;
carsInit(Number, Iterations) ->
    spawn(parking, car, [Number, Iterations]),
    carsInit(Number - 1, Iterations).

car(_ID, 0) ->
    ok;
car(ID, Iterations) ->
    Gate = random:uniform(2),
    parking ! {enter, self()},
    receive
        error ->
            io:format("Car ~B ncanot enter - there is no free place.~n", [ID]),
            Time = random:uniform(1000),
            timer:sleep(Time),
            car(ID, Iterations);
        ok ->
            io:format("Car ~B entered through the ~B gate~n", [ID, Gate])
    end,
    StopTime = random:uniform(500) + 500,
    timer:sleep(StopTime),
        parking ! {leave, self(), ID},
        FreerideTime = random:uniform(1000) + 500,
    timer:sleep(FreerideTime),
    car(ID, Iterations - 1).

parkingInit(Slots) ->
    spawn(parking, parkingLoop, [Slots]).

parkingLoop(Slots) ->
    receive
        {enter, Pid} ->
            if Slots =:= 0 ->
                Pid ! error
            end,
            Pid ! ok,
            parkingLoop(Slots - 1);
        {leave, Pid, ID} ->
            io:format("Car ~B left the car park.", [ID]),
            parkingLoop(Slots + 1);
        stop ->
            ok
    end.    


start(Cars, Slots, Iterations) ->
    parkingInit(Slots),
    carsInit(Cars, Iterations).

有人可以帮助我吗？我学习了 Erlang 几天了，不知道这里出了什么问题。

提前致谢， 拉德克

Answer 1

您发布的示例在 spawn/3 调用中使用了错误的模块：

spawn(parking, parkingLoop, [Slots]).

如果您将其更改为：（

spawn(?MODULE, parkingLoop, [Slots]).

始终使用 ?MODULE，这是一个计算当前模块名称的宏，在做这样的事情时，因为它会避免使用错误的模块而不是预期的很多错误。

该错误来自未注册 parkingLoop 进程。您正在尝试使用 parking 向其发送消息！ ... 但没有进程名为 parking。将第 33 行更改为：（

register(parking, spawn(parking2, parkingLoop, [Slots])).

即使在这里，您也可以使用 ?MODULE 宏来避免将来出现问题：?MODULE ! ... 和 register(?MODULE , ...) 因为您只有一个具有该名称的进程）

此外，第 38 行的 if 语句错过了一个失败子句。让它看起来像这样来处理 Slots not 等于 0 的情况：（

if 
    Slots =:= 0 ->Pid ! error;
    true -> ok
end,

ok 表达式将不起作用，因为返回值未使用 if 语句）