二郎for循环查询

Question

我有这样的功能：

show_employee_table() -> 
    do(qlc:q([B || B <- mnesia:table(employee)])). 

它所做的是，它关系到一个表叫员工和打印的内容给用户。

概念：我想做另一个功能，叫做show(times) -->，这个函数将取一个表名和调用show_table函数的次数。

如果我输入（雇员，100），我想有一个循环运行100次，这个想法是测量运行循环所花费的时间。在java中我会这样做：

Time t = time.now(); 
for (I=0; I<N; I++){ 
show_employee_table() -> 
    do(qlc:q([B || B <- mnesia:table(employee)])). 
} 

Time t2 = time.now(); 

timetaken = t2 - t1; 

这就是我想要做的，但在erlang。我只是不知道erlang的语法，如果有人能帮助我，我将不胜感激。

Answer 1

时间测量，使用：timer:tc/1, timer:tc/2, timer:tc/3。所以我们将会有一个叫做loop的递归函数，它可以做你想做的任何事情。然后，我们会衡量它通过应用

 
{TimeTaken,Result} = timer:tc(?MODULE,loop,Args). 

Args花费的循环的时间必须是函数的自变量说，一张桌子和一个数的列表，这样

 
measureLoopTime()-> 
    Args = [employee,100], 
    {TimeTaken,_Result} = timer:tc(?MODULE,loop,Args), 
    TimeTaken. 

loop(_,0) -> done; 
loop(Table,Number)-> 
    %%% do something .... 
    loop(Table, Number - 1). 

这是正确的Erlang实施你的java代码。按照定时功能的链接查看返回时间的单位。

Answer 2

Erlang没有Java这样的循环。相反，你会使用递归。 如：

show_employee_table(0) -> done; 
show_employee_table(Times) -> 
    do(qlc:q([B || B <- mnesia:table(employee)])), 
    show_employee_table(Times - 1) 
. 

你会续下来的每一步，当你达到0你做..

如果你这样做了很多，你可以做它的功能：

times(_, 0) -> done; 
times(Call, Times) -> 
    Call(), 
    times(Call, Times - 1) 
. 

这样称呼它：

times(fun() -> show_employee_table() end, N).