Question

-define(INTERVAL, 1000).

init([]) ->
    Timer = erlang:send_after(?INTERVAL, self(), tick),
    {ok, Timer}.

handle_info(tick, OldTimer) ->
    erlang:cancel_timer(OldTimer),
    io:format("Tick ~w~n", [OldTimer]),
    Timer = erlang:send_after(?INTERVAL, self(), tick).
    {noreplay, Timer}.

start_clock() ->
    {_, Timer} = init([]),
    spawn(clock, handle_info, [tick, Timer]).

我的代码如上，但输出不是我想要的。如何将init（）和handle_info（）集成到main函数（start_clock）？

Answer 1

在timer模块中，函数apply_interval(Time, Module, Function, Arguments)在每个时间间隔执行Module：Function（Arguments）。它负责产生一个进程，返回一个引用以允许稍后取消。

您还可以查看同一个库中的send_interval(Time, Pid, Message)。

您还可以实现一个简单的循环：

loop(Args,Tick) when is_integer(Tick), Tick >= 0 ->
    receive
        stop -> stopped
    after Tick
        do_something(Args),
        {NewArgs,NewTick} = new_args(Args,Tick), 
        loop(NewArgs,NewTick)
    end.

它不是实时计时器，但函数new_args（Args，Tick）可以帮助纠正由于进程调度引起的偏差。

Answer 2

我认为你需要这样的东西：

start_timer() ->
    gen_server:start_link({local, clock}, ?MODULE, [], []).

如何在Erlang中定期执行操作

2 个答案: