Time::Progress - Elapsed and estimated finish time reporting.
# autoflush to get \r working $| = 1; # get new `timer' my $p = new Time::Progress; # restart and report progress $p->restart; sleep 5; # or do some work here print $p->report( "done %p elapsed: %L (%l sec), ETA %E (%e sec)\n", 50 ); # set min and max values $p->attr( min => -2, max => -20 ); # restart `timer' $p->restart; my $c; for( $c = -2; $c >= -20; $c-- ) { # print progress bar and percentage done print $p->report( "eta: %E min, %40b %p\r", $c ); sleep 1; # work... } # stop timer $p->stop; # report times print $p->elapsed_str;
Shortest time interval that can be measured is 1 second. (This should be fixed in the future perhaps). The available methods are:
my $p = new Time::Progress;
Returns new object of Time::Progress class and starts the timer. It also sets min and max values to 0 and 100, so the next report calls will default to percents range.
restarts the timer and clears the stop mark.
Sets the stop mark. this is only usefull if you do some work, then finish, then do some work that shouldn't be timed and finally report. Something like:
$p->restart; # do some work here... $p->stop; # do some post-work here print $p->report; # `post-work' will not be timed
Stop is useless if you want to report time as soon as work is finished like:
$p->restart; # do some work here... print $p->report;
Clears the stop mark. (mostly useless, perhaps you need to restart?)
Sets and returns internal values for attributes. Available attributes are:
This is the min value of the items that will follow (used to calculate estimated finish time)
This is the max value of all items in the even (also used to calculate estimated finish time)
This is the default report format. It is used if report is called without parameters.
attr returns array of the set attributes:
my ( $new_min, $new_max ) = $p->attr( min => 1, max => 5 );
If you want just to get values use undef:
my $old_format = $p->attr( format => undef );
This way of handling attributes is a bit heavy but saves a lot of attribute handling functions. attr will complain if you pass odd number of parameters.
report is the most complex method in this package! :)
expected arguments are:
$p->report( format, [current_item] );
format is string that will be used for the result string. Recognized special sequences are:
elapsed seconds
elapsed time in minutes in format MM:SS
remaining seconds
remaining time in minutes in format MM:SS
percentage done in format PPP.P%
estimated finish time in format returned by localtime()
progress bar which looks like:
##############......................
%b takes optional width:
%40b -- 40-chars wide bar %9b -- 9-chars wide bar %b -- 79-chars wide bar (default)
Parameters can be ommited and then default format set with attr will be used.
Estimate time calculations can be used only if min and max values are set (see attr method) and current item is passed to report! if you want to use the default format but still have estimates use it like this:
$p->format( undef, 45 );
If you don't give current item (step) or didn't set proper min/max value then all estimate sequences will have value `n/a'.
You can freely mix reports during the same event.
helpers -- return elapsed/estimated seconds or string in format:
"elapsed time is MM:SS min.\n" "remaining time is MM:SS min.\n"
# $c is current element (step) reached # for the examples: min = 0, max = 100, $c = 33.3 print $p->report( "done %p elapsed: %L (%l sec), ETA %E (%e sec)\n", $c ); # prints: # done 33.3% elapsed time 0:05 (5 sec), ETA 0:07 (7 sec) print $p->report( "%45b %p\r", $c ); # prints: # ###############.............................. 33.3% print $p->report( "done %p ETA %f\n", $c ); # prints: # done 33.3% ETA Sun Oct 21 16:50:57 2001
Vladi Belperchinov-Shabanski "Cade" <cade@biscom.net> <cade@datamax.bg> <cade@cpan.org> http://www.biscom.net/~cade
$Id: Progress.pm,v 1.2 2002/12/16 08:29:22 cade Exp $
To install Time::Progress, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Time::Progress
CPAN shell
perl -MCPAN -e shell install Time::Progress
For more information on module installation, please visit the detailed CPAN module installation guide.