Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tag: 2.1.9
Fetching contributors…

Cannot retrieve contributors at this time

executable file 32 lines (26 sloc) 1.006 kb
#! /usr/bin/env escript
%%! -smp enable -pa ebin -pa perf
%-mode(compile).
main([BindTo,MessageSizeStr,MessageCountStr]) ->
{MessageSize, _} = string:to_integer(MessageSizeStr),
{MessageCount, _} = string:to_integer(MessageCountStr),
{ok, Context} = erlzmq:context(),
{ok, Socket} = erlzmq:socket(Context, [sub, {active, true}]),
ok = erlzmq:setsockopt(Socket,subscribe, <<>>),
ok = erlzmq:bind(Socket, BindTo),
receive
_ ->
ok
end,
Start = now(),
erlzmq_perf:recv_loop(MessageCount-1, Socket, active),
Elapsed = timer:now_diff(now(), Start),
Throughput = MessageCount / Elapsed * 1000000,
Megabits = Throughput * MessageSize * 8 / 1000000,
io:format("message size: ~p [B]~n"
"message count: ~p~n"
"mean throughput: ~p [msg/s]~n"
"mean throughput: ~p [Mb/s]~n",
[MessageSize, MessageCount, Throughput, Megabits]),
erlzmq:close(Socket),
erlzmq:term(Context).
Jump to Line
Something went wrong with that request. Please try again.