Console output 2

[Segfault7375]

Is there a way to update the text on a given line in the console in Perl? Basically so that I could have a percentage complete indicator, but the text staying on one line. If you have ever seen fsck run on Linux as it runs and the percentage complete is counted, that is exactly what I am looking for.

Thanks!
Segfault

 

[goBoating]

This is brutally low tech..... but...... I sometimes just print dots for a progress indicator for a long process. You must first set $| = 1;




keep the rudder amid ship and beware the odd typo

 

[raider2001]

This can be done by using the backspace character "\b". Also make sure to turn on auto-flush ($|=1).

$| = 1;
for ($i=0; $i<=100; $i++) {
$string = $i . '%';
print &quot;$string&quot;;
$len = length($string);
print &quot;\b&quot; x $len;
sleep(1);
}
print &quot;\n&quot;;

 

[Segfault7375]

Thanks! You guys rock

 

[sophisticate]

This can also be done with escape codes &quot;\e[(char)&quot;. For instance, for a spinny thingy:

#!/usr/bin/perl
$|=1;
print "\n";
my @thingy = qw~ \ | / - ~;
while(1) {
    foreach (@thingy) {
        print "\e[A\e[D$_\n";
    }
}

This moves the cursor up one line and left one character before printing each new character.

brendanc@icehouse.net

http://www.witheredpipedream.com