I have to admit that while this solution is ok when the spinner is a single char I still prefer the other approach as being more flexible
Aint animation fun!use Tie::Cycle; tie my $spinner, 'Tie::Cycle', [map "\b$_",qw(> -> --> ---> ----> ---> + --> -> >)]; print $spinner while (1);
:-)
--- demerphq
my friends call me, usually because I'm late....
In reply to Re: Re: Way of the Spinner (repost)
by demerphq
in thread Way of the Spinner (repost)
by !unlike
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |