http://qs321.pair.com?node_id=52830


in reply to Spinning progress bar.

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";