Re: Spinning progress bar.

[robsv]

Cool! PHB will love it! This is just a different take on it using an array...

sub jitter
{
  my @symbol = qw(| / - \\);
  my $delay = rand 200;
  for (1..400)
  {
    print $symbol[$_%4];
    for (1..$delay) {}
    print "\x08";
  }
}
    
sub flimflam
{
  for (1..50)
  {
    jitter();
    print ".";
  }
}

$| = 1;
&flimflam;
print "\n";