$counter = 0;
print STDOUT "Processing product line files: ";
PLFKEY: for $file_name_key (keys %patch_files)
{
$counter++;
print STDOUT "\b"x5;
print STDOUT $counter," "x(5 - (length($counter)));
.
.
.
Thank you,
Patrick Sullivan
-----Original Message-----
From: Craig Sharp [mailto:[EMAIL PROTECTED]
Sent: Friday, June 20, 2003 12:14 PM
To: [EMAIL PROTECTED]
Subject: [Perl-unix-users] Counter for console based script
I need to put a counter in a script that processes a file line by line.
I want the counter to alway stays on the same line on the console but
increment. This is to be a baby sitter so that the user can see the
numbers increase. I do not want to scroll but print the number, erase
and print the next number untill finished.
I hope this makes sense.
Thanks,
Craig A. Sharp
Unix Systems Administrator
DNS Administrator
Security Administrator
Roush Industries
Office: 734-466-6286
Cell: 734-231-6769
Fax: 734-466-6939
[EMAIL PROTECTED]
====================================================
I have not lost my mind, it's backed up on tape somewhere!
====================================================
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
This communication is for the use of the intended recipient only. It may contain
information that is privileged and confidential. If you are not the intended
recipient of this communication, any disclosure, copying, further distribution or use
thereof is prohibited. If you have received this communication in error, please
advise me by return e-mail or by telephone and delete/destroy it.
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
