Re: Code for making the 'clock'

On Wed, Aug 19, 2009 at 11:03, Tony Esposito<tony1234567893@yahoo.co.uk> wrote:
> Anyone have the code that make the 'clock' show when a Perl program is running?
> What I mean by the 'clock' is the command-line movement that sequentially does the following (in place):
>
> - \ | / - \ | /
snip

#!/usr/bin/perl

use strict;
use warnings;

my @spinner  = qw{ - \ | / - \ | / };
my @throbber = qw{ . o O o };

$| = 1;

print "waiting: ";
while (1) {
	my $spinner_frame  = shift @spinner;
	my $throbber_frame = shift @throbber;

	print "$throbber_frame $spinner_frame";

	push @spinner, $spinner_frame;
	push @throbber, $throbber_frame;

	#wait a tenth of a second
	select undef, undef, undef, .1;

	print "\b\b\b";
}



-- 
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.

• Code for making the 'clock' by Tony Esposito
• Re: Code for making the 'clock' by Peter Scott
• Re: Code for making the 'clock' by Chas. Owens
• Re: Code for making the 'clock' by Shawn H. Corey