Simple Perl Script to Screen Display

#1 (**permalink**) 04-19-2002

$number_clients++;

print("Creating client $number_clients\r");

I have been using the above to increment on the screen as the script increments throughout a while loop. What I would like to know is what is the trick to keep the last one on the screen without printing it again?

Ie

...Script running

Creating client 500

End of script

At the moment it runs through and just removes the last one from the screen....

Thanks in anticipation, I am sure it is a simple answer...

auswipe · #2 (**permalink**) 04-19-2002

I haven't seem a simple way around the problem (although, it is interesting to note that under Win32 with ActiveState the \r is not a problem although it is under Unix).

How about something like this?

Code:

#!/usr/bin/perl

my $counter = 0;

while ($counter++ <= 1000) {
  print "Counter is $counter";

  # Doing lots of work that takes a while

  print "\r"
};
print "\nDone!\n";

When the creating takes a while the message is still displayed on the line and the carriage return doesn't take place until the work is done and ready for the next iteration.

More UNIX and Linux Forum Topics You Might Find Helpful
Thread	Thread Starter	Forum	Replies	Last Post
CDE running but not display on screen	silves	AIX	0	01-17-2008 07:49 AM
screen display help	zilla30066	Shell Programming and Scripting	2	01-30-2007 07:49 PM
simple perl script not working	hankooknara	Shell Programming and Scripting	4	01-11-2007 02:02 AM
file display on screen on pg at time	zip_zip	Shell Programming and Scripting	1	09-07-2003 04:30 AM
controlling screen display	jrdnoland1	Shell Programming and Scripting	6	02-08-2002 05:09 PM

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode	Rate This Thread:


	Powered by