At 12:38 -0600 2004.01.03, Timothy Bailey wrote:
>I'm trying to set up a progress bar, and although I understand that
>"\r" should do a carriage return without a line feed (to return to
>the beginning of the current line, so as to overwrite the line
>again), it doesn't seem to do such on MacPerl (under OS9). For
>example:
>
>
>for ( $x=1; $x<20; $x++ ) {
> print ( ("*" x $x) . ("." x (20-$x)) . "\r" );
>}
>
>Any ideas?
That doesn't work in MacPerl; it's not a real terminal emulator. Have you
considered using the GUI Progress Bar app? It works with Mac::Glue, or the
more specific Mac::Apps::PBar.
http://search.cpan.org/dist/Mac-Apps-PBar/
There was an article about using Progress Bar in The Perl Journal:
http://www.macperl.com/depts/articles/IPCwMP.html
This article precedes the module though; it shows how to do the low-level
stuff that the module does for you.
--
Chris Nandor [EMAIL PROTECTED] http://pudge.net/
Open Source Development Network [EMAIL PROTECTED] http://osdn.com/
