Quiq::Progress - Berechne Fortschrittsinformation
Quiq::Hash
Mit print:
use Quiq::Progress; $| = 1; my $n = 5; my $p = Quiq::Progress->new($n); print $p->msg('Waiting...'); for my $i (1 .. $n) { sleep 1; print $p->msg($i,'i/n x% t/t(t) x/s t/1'); } print $p->msg;
Mit R1::Log2:
use R1::Log2; use Quiq::Progress; my $log = R1::Log2->new(\*STDOUT); my $msg; my $n = 5; my $p = Quiq::Progress->new($n); for my $i (1 .. $n) { sleep 1; $msg = sprintf '%s %s %s %s %s',$p->info($i); $log->printCr($msg); } $log->printLn($msg);
Ohne Gesamtanzahl der Schritte. Anmerkungen:
die Ausgabe der Prozentangabe wird unterdrückt
alle Ausgaben erfolgen ohne Bezug zu einer Gesamtanzahl (statt Ausgabe I/N nur I, statt ZEIT/GESAMTZEIT(RESTZEIT) nur ZEIT)
*
use Quiq::Progress; $| = 1; my $p = Quiq::Progress->new; for my $i (1 .. 5) { print $p->msg($i,'i/n x% t/t(t) x/h x/s t/1'); sleep 1; } print $p->msg; 1 0s 3600000/h 1000.00/s 0.00s/1\r 2 1s 7200/h 2.00/s 0.50s/1\r 3 2s 5400/h 1.50/s 0.67s/1\r 4 3s 4788/h 1.33/s 0.75s/1\r 5 4s 4500/h 1.25/s 0.80s/1\r 5 5s 3600/h 1.00/s 1.00s/1\r
Gesamtzahl der Schritte
Startzeitpunkt
Aktueller Schritt
Vergangene Zeit in Sekunden (mit Nachkommastellen)
Die letzte von msg() erzeugte Meldung.
$pi = $class->new($n,@opt);
Die Klasse liefert Meldungen. Mit -show=>0 kann die Ausgabe von Meldungen an-/abgeschaltet werden. Beispiel:
$pi = $class->new($n,-show=>$verbose);
Referenz auf Progress-Objekt
$pi->step($i);
Aktueller Schritt.
$str = $pi->count;
Liefere Stand in der Form "I/N". I ist die Anzahl der absolvierten Schritte, N ist die Anzahl der Gesamtschritte.
Liefere Stand in der Form "I", wenn die Anzahl der Gesamtschritte (N) nicht bekannt ist.
$str = $pi->percent;
Liefere Verarbeitungsstand in Prozent in der Form "X". Ist die Gesamtanzahl der Schritte nicht bekannt, liefere einen Leersting.
$str = $pi->time;
Liefere Zeitinformation in der Form "HhMmSs/HhMmSs(HhMmSs)". Der erste Teil ist die bislang verstrichene Zeit, der zweite Teil die geschätzte Gesamtzeit, der dritte Teil ist die geschätzte verbleibende Zeit.
Liefere die Zeitinformation in der Form "HhMmSs", wenn die Anzahl der Gesamtschritte (N) nicht bekannt ist.
$str = $pi->performance; $str = $pi->performance($prec);
Anzahl Nachkommastellen
Liefere Durchsatz in der Form "X.XX" (Schritte pro Sekunde).
$str = $pi->timePerStep; $str = $pi->timePerStep($prec);
Anzahl Nachkommastellen der Sekunde
Liefere Durchsatz in der Form "HhMmSs.x" (Zeit pro Schritt).
($count,$percent,$time,$performance,$timePerStep) = $pi->info; ($count,$percent,$time,$performance,$timePerStep) = $pi->info($i);
Setze auf Schritt $i. Ist $i nicht angegeben, wird kein neuer Schritt gesetzt, sondern die Information zum aktuellen Schritt geliefert.
Verarbeitungsstand in der Form "I/N". I ist die Anzahl der absolvierten Schritte, N ist die Anzahl der Gesamtschritte.
Verarbeitungsstand in Prozent.
Zeitinformation in der Form "HhMmSs/HhMmSs". Der erste Teil ist die bislang verstrichene Zeit, der zweite Teil die geschätzte Gesamtzeit.
Durchsatz in der Form "X.XX" (Schritte pro Sekunde).
Durchsatz in der Form "HhMmSs.x" (Zeit pro Schritt).
$str = $pi->msg; $str = $pi->msg($fmt,@args); $str = $pi->msg($i,$fmt,@args);
Setze Objekt auf Schritt $i. Ist $i nicht angegeben, wird kein neuer Schritt gesetzt, sondern die Information des aktuellen Schritts in die Meldung eingesetzt.
Formatelement für sprintf(), erweitert um folgende Platzhalter:
Wert von $pi->count.
Wert von $pi->percent.
Wert von $pi->time.
Wert von $pi->performance.
Wert von $pi->performance*3600.
Wert von $pi->timePerStep.
Beginnt $fmt mit einem Doppelpunkt (:) werden alle obigen Formatelemente an den Anfang gesetzt. Beispiel:
$pi->msg($i,': %s',$name);
Ausgabe-Zeichenketten oder Argumente für sprintf-Platzhalter.
Erzeugte Meldung
Erzeuge eine Fortschrittsmeldung und liefere diese zurück.
Die Methode ist für die eine einzeilige Ausgabe konzipiert, die sich kontnuierlich überschreibt, bis das Ende der Verarbeitung erreicht ist. Die letzte Meldung bleibt stehen.
Die erste Form (ohne Parameter) liefert die beim letzten Aufruf produzierte Meldung - allerdings mit neu berechneten Durchschittswerten - noch einmal mit "\n" am Zeilenende.
Die zweite Form erzeugt die Meldung für den aktuellen Schritt und beendet sie mit "\r".
Die dritte Form bewirkt dasselbe wie 2), nur dass zuvor das Objekt auf Schritt $i gesetzt wird.
Ist bislang kein Schritt ausgeführt worden, liefert die Methode einen Leerstring ("").
$str = $pi->warn(@args); $str = $pi->warn($fmt,@args);
Formatelement für sprintf().
Schreibe Warnung nach STDERR, die oberhalb der Fortschrittsanzeige erscheint:
warn $pro->warn("WARNING: Pfad erfüllt Regex nicht: $file");
1.196
Frank Seitz, http://fseitz.de/
Copyright (C) 2021 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.