####################################
## FUNCTION: StatusBar ###############
##################################################
## ##
## Generates a statusbar that is of variable ##
## width, and is very adaptable, optionally ##
## displaying the percentage as well. ##
## ##
## ARGS: ##
## 0) The text preceeding the bar ##
## 1) The current value ##
## 2) The maximum value ##
## 3) The size of the bar (in characters) ##
## 4) Display the percentage? ##
## 5) The text following the bar ##
## Returns: ##
## NULL ##
## ##
##################################################
sub StatusBar {
my $level;
my $numdots;
my $numblanks;
my $pre=$_[0];
my $cur=int($_[1]);
my $max=int($_[2]);
my $size=int($_[3]);
my $disp=$_[4];
my $i;
my $post=$_[5];
$level = $cur/$max;
$numdots = int($level * $size);
$numblanks = $size - $numdots;
print $pre . "\t";
print " [";
for($i = 0; $i < $numdots; $i++) {
print ".";
}
for($i = 0; $i < $numblanks; $i++) {
print " ";
}
print "]";
if($disp ne "") {
printf(" ($cur/$max, %3.2f%%)", (int($level*10000)/100));
}
print " $post\r";
}
Edited 2002-01-16 to fix html entities dvergin
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|