如何以精确的时间（即 10 毫秒）定期运行 Erlang 进程

我想每 10 毫秒运行一次定期的 erlang 进程（基于挂钟时间），10 毫秒应该尽可能准确；正确的实施方法应该是什么？

如果您想要真正可靠和准确的定期过程，您应该依靠实际的挂钟时间使用erlang:monotonic_time/0,1。如果您使用方法层云3D's answer你最终会落后。

start_link(Period) when Period > 0, is_integer(Period) ->
  gen_server:start_link({local, ?SERVER}, ?MODULE, Period, []).

...

init(Period) ->
    StartT = erlang:monotonic_time(millisecond),
    self() ! tick,
    {ok, {StartT, Period}}.

...

handle_info(tick, {StartT, Period} = S) ->
    Next = Period - (erlang:monotonic_time(millisecond)-StartT) rem Period,
    _Timer = erlang:send_after(Next, self(), tick),
    do_task(),
    {noreply, S}.

您可以在 shell 中测试：

spawn(fun() ->
    P = 1000,
    StartT = erlang:monotonic_time(millisecond),
    self() ! tick,
    (fun F() ->
        receive
          tick ->
            Next = P - (erlang:monotonic_time(millisecond)-StartT) rem P,
            erlang:send_after(Next, self(), tick),
            io:format("X~n", []),
            F()
        end
      end)()
  end).