in reply to Re: Progress Bar in Perl script
in thread Progress Bar in Perl script

Yes. that is correct. I just wanted to show something like a "spinning" cursor progress which will tell the user that script is doing its job. I do not want to show how much percentage is completed. This is meant for Linux console on a RHEL 6.2 box.

Thanks Athanasius for your time.

Replies are listed 'Best First'.
Re^3: Progress Bar in Perl script
by aitap (Curate) on Jul 08, 2012 at 10:57 UTC
    So you can use the Term::Spinner module. It can be easily done manually, too: 
    $|=1; #autoflush

sub spin {
my @spinners = qw{/ - \ |};
my $index = $_[0];
print $spinners[$index]."\033[1D"; # man console_codes, ECMA-48 CSI se
+quences, "CUB"
return $index == 3 ? 0 : $index++;
}

my $j=0;
for (something) {
 do_something;
 $j=&spin($j);
}

    [download]
    Sorry if my advice was wrong.
[reply]
[d/l]
      No, Your advice was not wrong. I think I am looking for something similar. I will definitely try out your suggestion. Thanks for your time.
[reply]

In Section Seekers of Perl Wisdom