Re^2: Progress Bar in Perl script

[slayedbylucifer]

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.

[aitap]

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);
}

[slayedbylucifer]

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.