Quiq::Stopwatch - Zeitmesser
Quiq::Object
Eine Stoppuhr:
use Quiq::Stopwatch; my $stw = Quiq::Stopwatch->new; ... printf "%.2f\n",$stw->elapsed;
Zwei Stoppuhren für Gesamtzeit und Zwischenzeiten:
use Quiq::Stopwatch; my $stw = Quiq::Stopwatch->new(2); # Start von zwei Timern ... printf "%.2f\n",$stw->restart(1); # Abschnittszeit (Timer 1) ... printf "%.2f\n",$stw->restart(1); # Abschnittszeit (Timer 1) ... printf "%.2f\n",$stw->elapsed; # Gesamtzeit (Timer 0)
Die Klasse implementiert einen einfachen hochauflösenden Zeitmesser. Mit Aufruf des Konstruktors wird die Zeitmessung gestartet. Mit der Methode elapsed() kann die seitdem vergangene Zeit abgefragt werden. Mit der Methode start() wird der Zeitmesser neu gestartet und die seit dem letzten Start vergangene Zeit zurückgeliefert. Mittels letzterer Methode ist es möglich, einzelne Codeabschnitte zu messen, ohne einen neuen Zeitmesser instantiieren zu müssen. Die Zeit wird in Sekunden gemessen. Die Genauigkeit (d.h. die maximale Anzahl der Nachkommastellen) ist systemabhängig. Es können $n Zeitmessungen gleichzeitig geführt werden.
Klasse Quiq::Duration
$stw = $class->new; $stw = $class->new($n);
Anzahl der Timer. Diese werden mit 0 .. $n-1 bezeichnet.
Stopwatch-Objekt
Instantiiere eine Stopwatch mit $n Timern und setze sie auf den aktuellen Zeitpunkt.
$sec = $stw->elapsed; $sec = $stw->elapsed($i);
Index des abgefragten Timers.
Sekunden (Float)
Liefere die Zeit, die auf Timer $i seit dem (letzten) Start vergangen ist.
$duration = $stw->elapsedReadable; $duration = $stw->elapsedReadable($i);
Dauer (String)
Liefere die Zeit, die auf Timer $i seit dem (letzten) Start vergangen ist, in der lesbaren Darstellung DdHhMmSs.
$sec = $stw->restart; $sec = $stw->restart($i);
Index des gestarteten Timers.
Starte Timer $i (setze ihn auf den aktuellen Zeitpunkt) und liefere die seit dem letzten Start vergangene Zeit zurück.
1.191
Frank Seitz, http://fseitz.de/
Copyright (C) 2020 Frank Seitz
This code is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Quiq, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Quiq
CPAN shell
perl -MCPAN -e shell install Quiq
For more information on module installation, please visit the detailed CPAN module installation guide.