Re: Re: A whirleygig for a progress indicator for scripts

[rob_au]

Using the Tie::Cycle module, this can be simplified further ...

use Tie::Cycle;

tie my $whirley, 'Tie::Cycle', [ qw( . o 0 O 0 o ) ];

#   And now for the demonstration ...

++$|;

while (1) {
    print $whirley, "\b";
    sleep 1;
}

 

perl -le 'print+unpack("N",pack("B32","00000000000000000000001000000000"))'

[demerphq]

*Heh*

Re: making a spinner

:-)

--- demerphq
my friends call me, usually because I'm late....