dbar(1) User Commands dbar(1)NAME
dbar - ASCII progresbar
SYNOPSIS
echo <percentage> | dbar [options] <indicator text>
DESCRIPTION
dbar lets you define static 0% and 100% marks or you can define these marks dynamically at runtime. Static and dynamic marks can be mixed,
in this case the value specified at runtime will have a higher priority.
You can specify ranges of numbers, negative, positive or ranges with a negative min value and positive max value.
All numbers are treated as double precision floating point, i.e. the input is NOT limited to integers.
OPTIONS -l Label to be prepended to the bar (default: "" ).
-nonl
no new line, don't put '
' at the end of the bar (default: do print "
")
-max
Value to be considered 100% (default: 100).
-min
Value to be considered 0% (default: 0).
-s Symbol represeting the percentage value in the meter (default: "=").
-w Number of charcaters to be considered 100% in the meter (default: 25)
EXAMPLES
Static 100% mark or single value input:
echo 25 | dbar -max 100 -l text
Output: text 25% [====== ]
If your 100% mark changes dynamically or 2-values input:
echo "50 150" | dbar
| |
| |__ max value
|
|__ value to display
Output: 33% [======== ]
If your value range is not between [0, maxval] or 3-values input:
echo "50 -25 150" | dbar
| | |
| | |__ max value 100% mark
| |
| |_____ min value 0% mark
|
|________ value to display
Output: 43% [=========== ]
Multiple runs:
for i in 2 20 50 75 80; do echo $i; sleep 1; done | dbar | dzen2
Output: Find out yourself.
ENVIRONMENT
None.
FILES
None.
SEE ALSO dzen2(1)AUTHORS
Program was written by Robert Manea <rob.manea@gmail.com>.
This manual page was written by Jari Aalto <jari.aalto@cante.net> for the Debian GNU system (but may be used by others). Released under
license GNU GPL version 2 or (at your option) any later version. For more information about license, visit
<http://www.gnu.org/copyleft/gpl.html>.
dbar 2012-04-02 dbar(1)
Check Out this Related Man Page
Time::Progress(3) User Contributed Perl Documentation Time::Progress(3)NAME
Time::Progress - Elapsed and estimated finish time reporting.
SYNOPSIS
use Time::Progress;
# autoflush to get
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)
", 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
", $c );
sleep 1; # work...
}
# stop timer
$p->stop;
# report times
print $p->elapsed_str;
DESCRIPTION
Shortest time interval that can be measured is 1 second. The available methods are:
new
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.
restart
restarts the timer and clears the stop mark. optionally restart() may act also as attr() for setting attributes:
$p->restart( min => 1, max => 5 );
is the same as:
$p->attr( min => 1, max => 5 );
$p->restart();
If you need to count things, you can set just 'max' attribute since 'min' is already set to 0 when object is constructed by new():
$p->restart( max => 42 );
stop
Sets the stop mark. This is only useful 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;
continue
Clears the stop mark. (mostly useless, perhaps you need to restart?)
attr
Sets and returns internal values for attributes. Available attributes are:
min This is the min value of the items that will follow (used to calculate estimated finish time)
max This is the max value of all items in the even (also used to calculate estimated finish time)
format
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
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:
%l elapsed seconds
%L elapsed time in minutes in format MM:SS
%e remaining seconds
%E remaining time in minutes in format MM:SS
%p percentage done in format PPP.P%
%f estimated finish time in format returned by localtime()
%b
%B 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.
Sequences 'L', 'l', 'E' and 'e' can have width also:
%10e
%5l
...
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.
elapsed
estimate
helpers -- return elapsed/estimate seconds.
elapsed_str
estimate_str
helpers -- return elapsed/estimated string in format:
"elapsed time is MM:SS min.
"
"remaining time is MM:SS min.
"
all helpers need one argument -- current item.
FORMAT EXAMPLES
# $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)
", $c );
# prints:
# done 33.3% elapsed time 0:05 (5 sec), ETA 0:07 (7 sec)
print $p->report( "%45b %p
", $c );
# prints:
# ###############.............................. 33.3%
print $p->report( "done %p ETA %f
", $c );
# prints:
# done 33.3% ETA Sun Oct 21 16:50:57 2001
GITHUB REPOSITORY
git@github.com:cade-vs/perl-time-progress.git
git clone git://github.com/cade-vs/perl-time-progress.git
AUTHOR
Vladi Belperchinov-Shabanski "Cade"
<cade@biscom.net> <cade@datamax.bg> <cade@cpan.org>
http://cade.datamax.bg
perl v5.18.2 2013-07-08 Time::Progress(3)