Как периодически выполнять действия с сервером gen Erlang?

Я хочу запустить gen_server, который дополнительно будет выполнять одно действие каждую минуту.

каков наилучший способ запланировать это?

34
erlang gen-server

4 ответов

у вас есть две простые альтернативы, используйте timer:send_interval/2 или erlang:send_after/3. send_interval легче настроить, в то время как send_after (при использовании в модуле Erlang) более надежен, так как это встроенная функция, см. Руководство По Эффективности.

используя send_after обеспечивает gen_server процесс не перегружен. Если вы используете send_interval функция вы получите сообщение независимо от того, может ли процесс идти в ногу или нет. С send_after вызывается непосредственно перед возвращением в handle_info вы только запланировать новое сообщение, как только вы обработали предыдущий. Если вы хотите более точное отслеживание времени, вы все еще можете запланировать send_after с динамическим временем, установленным на что-то ниже ?INTERVAL (или даже 0), чтобы догнать.

я бы рекомендовал что-то в следующих строках в вашем gen_server:

-define(INTERVAL, 60000). % One minute

init(Args) ->
   ... % Start first timer
   erlang:send_after(?INTERVAL, self(), trigger),
   ...

handle_info(trigger, State) ->
   ... % Do the action
   ... % Start new timer
   erlang:send_after(?INTERVAL, self(), trigger),
   ...

вместо trigger вы можете отправить что-то с состоянием, если это необходимо, например {trigger, Count} или что-то в этом роде.

54

чтобы точно контролировать таймер, вы можете использовать erlang:start_timer и сохраните каждую созданную ссылку таймера.

erlang:start_timer имеет крошечную разницу с erlang:send_after, см. http://www.erlang.org/doc/man/erlang.html#start_timer-3 и http://www.erlang.org/doc/man/erlang.html#send_after-3

пример использования:

init(Args) ->
    ...
    TRef = erlang:start_timer(?INTERVAL, self(), trigger),
    State = #state{tref = TRef},
    ...

handle_info({timeout, _Ref, trigger}, State) ->
    %% With this cancel call we are able to manually send the 'trigger' message 
    %% to re-align the timer, and prevent accidentally setting duplicate timers
    erlang:cancel(State#state.tref),
    ...
    TRef = erlang:start_timer(?INTERVAL, self(), trigger),
    NewState = State#state{tref = TRef},
    ...

handle_cast(stop_timer, State) ->
    TRef = State#state.tref,
    erlang:cancel(TRef),

    %% Remove the timeout message that may have been put in our queue just before 
    %% the call to erlang:cancel, so that no timeout message would ever get 
    %% handled after the 'stop_timer' message
    receive
        {timeout, TRef, _} -> void
        after 0 -> void
    end,
    ...
4

на самом деле в gen_server есть встроенный механизм для выполнения того же самого. Если третий элемент ответа кортеж методов init, handle_call, handle_cast или handle_info в gen_server - целое число, a timeout сообщение будет отправлено процессу после этого периода времени в миллисекундах... который должен обрабатываться с помощью handle_info. Например :

init(Args) ->
   ... % Start first timer
   {ok, SomeState, 20000}. %% 20000 is the timeout interval

handle_call(Input, From, State) ->
   ... % Do something
   ... % Do something else
   {reply, SomeState, 20000}. %% 20000 is the timeout interval

handle_cast(Input, State) ->
   ... % Do something
   ... % Do something else
   {noreply, SomeState, 20000}. %% 20000 is the timeout interval


%% A timeout message is sent to the gen_server to be handled in handle_info %%
handle_info(timeout, State) ->
   ... % Do the action
   ... % Start new timer
   {noreply, SomeState, 20000}. %% "timeout" can be sent again after 20000 ms
1

есть еще timer модуль, который можно использовать.

http://erldocs.com/R14B02/stdlib/timer.html?i=8&search=timer#cancel_timer/1

0