3

假设我有几个版本的gen_event处理程序，并希望在程序运行时更改它们：

-module(logger_all).
-behaviour(gen_event).
-export([init/1, handle_event/2, terminate/2]).
init(_Args) ->
    {ok, []}.
handle_event({Severity, ErrorMsg}, State) ->
    io:format("***~p*** ~p~n", [Severity, ErrorMsg]),
    {ok, State}.
terminate(_Args, _State) ->
    ok.

-module(logger_errors_only).
-behaviour(gen_event).
-export([init/1, handle_event/2, terminate/2]).
init(_Args) ->
    {ok, []}.
handle_event({error, ErrorMsg}, State) ->
    io:format("***Error*** ~p~n", [ErrorMsg]),
    {ok, State}.
handle_event({_, ErrorMsg}, State) ->
    {ok, State}. %% ignore everything except errors
terminate(_Args, _State) ->
    ok.

显然，我可以通过删除一个处理程序并添加另一个处理程序来切换它们：

log_errors_only() -> 
    gen_event:delete_handler(error_man, logger_all, []),
    gen_event:add_handler(error_man, logger_errors_only, []).

但这留下了竞争条件的可能性；如果error_man在错误的时间接收到一个事件，它不会被记录。或者如果我更改操作的顺序，它将被记录两次，这也是不可取的。我怎样才能确保它被精确地处理一次？

对于这种情况，我可以只有一个处理程序并将日志记录级别保持为State，但假设这是不可接受的。

4

1 回答 1

3

OTP 团队善于预见这样的需求；gen_event 具有以原子方式交换事件处理程序的功能：

log_errors_only() ->
    gen_event:swap_handler(error_man,
                           {logger_all, swapped_out},
                           {logger_errors_only, []}).
于 2010-09-22T20:29:20.823 回答