Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number
 
PerlMonks  

Re: How to UPDATE rather than append to STDOUT?

by maverick (Curate)
on Jun 05, 2002 at 15:09 UTC ( #171857=note: print w/ replies, xml ) Need Help??


in reply to How to UPDATE rather than append to STDOUT?

On any of the various Un*x you can use this code. This may work on windows as well (dunno, I don't use it)

$|++; for ($i=0; $i<1000; $i++) { print "\r$i"; } print "\n";
The first line turns off buffering, I suspect you want to see the numbers increment exactly as they happen.

Use "\r" to send the cursor back to the beginning of the line. If you use \b to backspace one character, you'd have to keep up with how long $i has become, and/or add/remove \b's if you change the text of your status line. Send the cursor to the front of the line, reprint the whole thing and be done with it.

Print a \n at the bottom of the loop. Otherwise your terminal prompt (or the next line of output) will get displayed at the end of the last status line and just look plain weird (especially if it starts with a number :) ).

HTH

/\/\averick
OmG! They killed tilly! You *bleep*!!


Comment on Re: How to UPDATE rather than append to STDOUT?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://171857]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (14)
As of 2014-11-26 14:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (171 votes), past polls