二郎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).