This is actually quite easy to achieve using the Tie::Cycle module ...
use Tie::Cycle; tie my $whirley, 'Tie::Cycle', [ qw( | / - \ ) ]; # And now for the demonstration ... ++$|; while (1) { print $whirley, "\b"; sleep 1; }
There a number of other ways to implement such eye-candy discussed in this thread.
perl -le 'print+unpack("N",pack("B32","00000000000000000000001000000010"))'
In reply to Re: Stupid console tricks (or color highlighted tail)
by rob_au
in thread Stupid console tricks (or color highlighted tail)
by icius
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |