erlang定时器的强度测试

erlang的定时器在做网络程序的时候几乎无所不在， 语法层面的receive after，IO操作超时，driver内部等都大量使用timer,特别是tcp 在发送接收都有个超时。 如果你有大量的tcp链接， 就意味着大量的定时器。 那么定时器的性能就是个很大的考验。erts的定时器是个timer_wheel实现， 和linux内核用的差不多，大概支持百万级别的规模。 测试如下：

并发开N个进程 每个进程里面0-10秒的随机定时，模拟tcp超时的情况。每个定时器事件的流程是这样的 进程检查消息队列 没消息 注册定时器事件 进程换出 定时器超时 进程换入 处理定时器事件。

root@nd-desktop:~/test# cat ttimer.erl
-module(ttimer).
-export([start/1]).

upmap(F, L) ->
    Parent = self(),
    Ref = make_ref(),
    [receive {Ref, Result} -> Result end
     || _ <- [spawn(fun() -> Parent ! {Ref, F(X)} end) || X <- L]].

loop(0)->
    ok;

loop(Cnt)->
        receive after random:uniform(10000) -> cont end,
        loop(Cnt-1).

start([A1, A2]) ->
         Start= now(),
         N= list_to_integer(atom_to_list(A1)),
         Cnt = list_to_integer(atom_to_list(A2)),
         io:format("spawn ~w process, loop ~w~n", [N, Cnt]),
         upmap(fun loop/1, lists:duplicate(N, Cnt)),
         io:format("run ~w ms~n", [round(timer:now_diff(now(), Start) /1000)]),
         done.


root@nd-desktop:~/test# erl -smp disable -noshell +P 9999999 -s ttimer start 500000 10 -s erlang halt
spawn 500000 process, loop 10
run 63201 ms

单cpu保持在70-80%， 63秒处理了500W个定时器事件， 大概每秒8W.

root@nd-desktop:~/test# cat /proc/cpuinfo
model name      : Pentium(R) Dual-Core  CPU      E5200  @ 2.50GHz
bogomips        : 4987.08

结论： 定时器处理还是比较费时间的。