erlang for-Schleife für Abfragen

Question

Ich habe diese Funktion:

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

Was sie tut, ist, dass es auf eine Tabelle mit dem Namen Mitarbeiter geht und druckt die Inhalte an den Benutzer.

Konzept: Ich möchte eine andere Funktion sagen sagen show(times) -->, diese Funktion wird einen Tabellennamen und die Anzahl der Aufrufe der Show_table-Funktion.

Wenn ich (Mitarbeiter, 100) eingeben, möchte ich eine for-Schleife, die 100 Mal ausgeführt wird, die Idee ist, die Zeit zu messen, die zum Ausführen der Schleife benötigt wird. In Java würde ich so etwas tun:

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; 

Das ist, wie ich es tun wollen, aber in erlang. Ich kenne einfach nicht die Syntax in Erlang und ich würde es schätzen, wenn mir jemand helfen kann.

Answer 1

Für die Zeitmessung, Verwendung: timer:tc/1, timer:tc/2, timer:tc/3. Also werden wir eine rekursive Funktion namens loop haben, die alles tun kann, was Sie wollen. Dann würden wir die Zeit messen, es zu Schleife nimmt durch

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

Args beantragt, muss eine Liste der Argumente der Funktion sein sagen, einem Tisch und einer Anzahl, wie diese

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

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

Das ist die richtige erlang Umsetzung Dein Java-Code. Folgen Sie dem Link zur Timing-Funktion, um zu sehen, in welchen Einheiten die Uhrzeit zurückgegeben wird.

Answer 2

Erlang hat keine Schleifen wie Java. Stattdessen würden Sie Rekursion verwenden. ZB:

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

Sie würden für jeden Schritt cont nach unten, und wenn du 0 erreichen Sie fertig sind ..

Wenn Sie alot das Sie eine Funktion für sie machen könnte:

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

Nennen sie es wie folgt aus:

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