Thread times, Ablaufdauer messen (5 answers)
Opened by RalphFFM at 2008-09-13 18:26

FoolAck
 2008-09-13 19:11
#114607 #114607
User since
2008-05-02
69 Artikel
BenutzerIn
[default_avatar]
Gibt times nicht den Wert zurück, wie lange der Prozess gelaufen ist im Sinne von Prozessorokkupierung? (Hab ich jetzt so verstanden...)
Ein sleep call ist ja wahrscheinlich da nicht so ressourcenverbrauchend. Ersetz den mal mit irgendwas nicht idlenden.
So zum Beispiel:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/env perl
use warnings; use strict;
$|++;
my @start = times;
for (1 .. 5) {
print ".";
recuridle(qw(a b c));
}
print "\n";
my @end = times;
my @diffs = map { $end[$_] - $start[$_] } 0 .. $#end;
print "Dauer insgesamt ist @diffs";


sub recuridle {
return if @_ > 100;
my @foo = @_;
return recuridle(@foo, [@foo]);
}

View full thread times, Ablaufdauer messen