Erlang信息传递环形基准测试

目的是用Erlang语言首先创建一个含有N个进程的环, 然后沿着环发送一条消息M次, 测试在N和M取不同值时整个过程的耗时情况. 此有一例, 可参照看看. 我的代码如下:

%文件名exec.erl

-module(exec).
-compile(export_all).

for(N,N,F)->F(),[];
for(I,N,F)->F(),for(I+1,N,F).

start(N)->
create([self()],N-1).
create(PidList,0)->PidList;
create([H|T],N) when N>0->
create([spawn(fun()->loop(H) end),H|T],N-1).
loop(TargetPid)->
receive
cancel ->
cancel;
Any->
TargetPid ! Any,
%sleep(round(random:uniform()*10)),
loop(TargetPid)
end.

head_rec(0)->[];
head_rec(N)->
receive
Any->
%io:format("~p~n",[Any]),
head_rec(N-1)
end.

circle_test(M,N,Message)->
[H|T]=start(N),
for(1,M,fun()->H!Message end),
head_rec(M),
lists:map(fun(Pid)->Pid!cancel end, [H|T]),
testSucessful.

sleep(T)->
receive
after T ->
true
end.

然后在exec.erl所在目录下启动erlang shell, 如下:
1> c(exec.erl).
{ok,exec}
2> {Time,Value}=timer:tc(exec,circle_test,[1000,5000,"how are you"]).
{2625000,testSucessful}

测试成功, 耗时2625毫秒.