I haven't tested it but your code needed reworking so that the downloaded version would compile.
Update: I wrapped it in a test script for you :). I also added flushing and a sleep to simulate something running slowly (which we were tracking).
#! d:/perl/bin/perl -w
use strict;
$|++;
my $min = 1;
my $max = 100;
while($min != $max)
{
sleep(1);
StatusBar('before',$min,$max,25,'y','after');
$min++;
}
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";
}
Simon
You're only jealous cos the voices are talking to me
-
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.
|