Moving the output cursor in Windows

Perl_Peril has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Moving the output cursor in Windows by ktross (Deacon) on May 27, 2005 at 14:37 UTC
If you print "\r", it returns you to the beginning of the current line. This snippet counts to 10. `for(1..10){ print "\r", 'line: ', $_; sleep(1); }` [download] *Spem Successus Alit*	[reply] [d/l]
Re^2: Moving the output cursor in Windows by LanceDeeply (Chaplain) on May 27, 2005 at 15:34 UTC
OP may not know how to flush the buffer immediately to see the count... `$\|=1; for(1..10){ print "\r", 'line: ', $_; sleep(1); }` [download]	[reply] [d/l]
Re^2: Moving the output cursor in Windows by thundergnat (Deacon) on May 27, 2005 at 15:34 UTC
You need to unbuffer STDOUT first for that to work correctly. With buffered output, it just waits for 10 seconds then prints "Line 10".	[reply]
Re: Moving the output cursor in Windows by marto (Cardinal) on May 27, 2005 at 14:39 UTC
Hi, This node looks like a cool progress bar. Take a look at it and see if you can adapt it to suit your needs. Hope this helps. Cheers Martin	[reply]
Re: Moving the output cursor in Windows by reasonablekeith (Deacon) on May 27, 2005 at 14:38 UTC
Just use... `print "\r 10% complete (or whatever)";` [download] Which will return to the left of the screen before printing. As long as you don't print past the screen width you'll be okay. You can get the screen width using `use Term::ReadKey; my ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();` [download] which would allow you resize the progress bar on the fly. --- my name's not Keith, and I'm not reasonable.	[reply] [d/l] [select]
Re: Moving the output cursor in Windows by holli (Abbot) on May 27, 2005 at 14:41 UTC
Subroutine for showing the end user the progress of the program And ... what has the fact you are running under XP has to do with modules? /me does too and I have no problem installing modules. Maybe you want also have a look at A guide to installing modules for Win32. holli, /regexed monk/	[reply]
Re^2: Moving the output cursor in Windows by Perl_Peril (Initiate) on May 27, 2005 at 14:56 UTC
Thanks for the info. I now have it working. The problem with XP is that ppm only has a limitind number of modules, and I don't have a c-complier (I'm working in a very restrictive research environment)	[reply]