Re: overwritting print in same line

I'm not entirely sure that I understand your question, but if you just want to show that the script is running without using up screen space, consider using a "spinner" which twirls in place:

use warnings;
use strict;
my $spin;

while (1) {
    print substr( "-/|\\", $spin++ % 4, 1 ), "\b";
    $| = 1;
    select undef, undef, undef, 0.05;
}
[download]

I changed your "sleep .05" to "select undef, undef, undef, 0.05" because the normal Perl sleep function works in seconds, so "sleep .05" is the same as "sleep 0". See sleep for an explanation and other alternatives. I also added "$|=1" to avoid having the output getting buffered and not displaying anything for long periods of time; see $OUTPUT_AUTOFLUSH.

Comment on Re: overwritting print in same line Download Code

Replies are listed 'Best First'.
Re^2: overwritting print in same line by Anonymous Monk on Nov 14, 2011 at 07:22 UTC
consider using a "spinner" which twirls in place Hmm, spinner, spinner, spinner Term::Spinner - A progress spinner for commandline programs Dancer::Logger::Spinner - Show a spinner in the console on Dancer log messages! Game::Pexeso::Spinner - A spinner used to show progress. Acme::Spinner - A trivial example of one of those activity spinners ProgressMonito - a flexible and configurable framework for providing feedback on how a long-running task is proceeding Wx::Perl::Throbber - An animated throbber/spinner Term::Twiddle - Twiddles a thingy while-u-wait Term::MultiSpinner - Term::Spinner with multiple spinners http://search.cpan.org/perldoc/UI::Dialog::Backend::ASCII#spinner(_) Good call quester :)	[reply]
Re^2: overwritting print in same line by raybies (Chaplain) on Nov 14, 2011 at 13:39 UTC
Cool spinner code. Thanks for sharing. Fun. Btw, The autoflush `$\| = 1;` can actually be put outside the while loop (above it, obviously), as it's a flag not a function in and of itself and so it doesn't require being repeatedly called for each spin segment...	[reply] [d/l]