Charles Lu wrote:
> 
> If I wanted to print say 10 numbers but instead of
> printing each number on a line, I want each successive
> number to REPLACE the previous number so it appears
> that the number is changing in place.

I assume you've turned off buffering with $| = 1;

> foreach(1..10){
>   print "$_";

    printf "%2u";       # force print to 2 char width or %02u for leading zeros

>   sleep(1);    #delay so i can see the change
>   print "\r";
> }
> 
> This code works only for increasing numbers, but when
> I try to go from 2-digit to 1 digit i.e. (11,10,9)the
> final output would be "90".  It appears that only the
> first digit is replaced with 9.   Anyone have any
> suggestions?  This would be useful in printing out
> progress of your program.


-- 
  ,-/-  __      _  _         $Bill Luebkert   ICQ=14439852
 (_/   /  )    // //       DBE Collectibles   http://www.todbe.com/
  / ) /--<  o // //      Mailto:[EMAIL PROTECTED] http://dbecoll.webjump.com/
-/-' /___/_<_</_</_    http://www.freeyellow.com/members/dbecoll/
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to 
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users

Reply via email to