I have tried that. Here's the error I get from that:
Use of uninitialized value in modulus (%) at ./test.pl line 7.
Tyler
----- Original Message -----
From: "Chas Owens" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, July 10, 2001 9:19 AM
Subject: Re: timer/display
> Try
>
> print "$windmill[$_ % 4]\r"
>
> instead.
>
>
> On 10 Jul 2001 09:04:18 -0500, Tyler Longren wrote:
> > I've been playing with this spinning wheel thing. I've read through
this
> > thread:
> > <http://archive.develooper.com/beginners%40perl.org/msg04192.html>
> >
> > I don't know why this doesn't work:
> >
> > #!/usr/bin/perl -w
> > use strict;
> > $| = 1;
> > use Time::HiRes qw(usleep);
> > my @windmill=("\\", "|", "/", "-");
> > for(my $i=0; $i <= 10000; $i++) {
> > print "$windmill[$_ & 3]\r";
> > usleep(50000);
> > }
> >
> > I get this error:
> > Use of uninitialized value in bitwise and (&) at ./test.pl line 7.
> >
> > Thanks everyone,
> > Tyler
> >
> > ----- Original Message -----
> > From: "Chas Owens" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Monday, July 09, 2001 4:42 PM
> > Subject: Re: timer/display
> >
> >
> > > On 09 Jul 2001 17:39:15 -0400, Chas Owens wrote:
> > > > On 09 Jul 2001 14:03:47 -0700, [EMAIL PROTECTED] wrote:
> > > > > This will sound silly.
> > > > >
> > > > > I need to come up with a simple status indicator of some sort. I
have
> > in
> > > > > mind a "spinner." You've seen them before I'm sure, where there's
a
> > '-'
> > > > > then it changes to '\' then '|' then '/' then '-' and so forth, so
> > that it
> > > > > appears to be spinning. Actually, I really don't care what the
status
> > > > > indicator looks like, I just want it to be easy to code and move
in
> > such a
> > > > > way that long-time Windows users will understand that the computer
is
> > > > > working and has not hung. My solution so far is just to tuck a
print
> > "*"
> > > > > thing in a while loop that's already present doing other work.
This is
> > > > > inelegant though, as it prints just thousands of asterisks. I was
> > hoping
> > > > > someone knew of a better way. Is there a module?
> > > > >
> > > > > (I have a DBI search tool that can handle lots of text strings
matched
> > > > > against a large db. It takes 2-15 minutes to run and users keep
> > killing the
> > > > > program because they think it's "stuck." For some reason, they
never
> > read
> > > > > the instruction line, printed to the screen, that says "This may
take
> > up to
> > > > > 15 minutes.")
> > > > >
> > > > > Thanks,
> > > > > John
> > > > >
> > > > >
> > > >
> > > > my @windmill = ("\\", "|", "/", "-");
> > > >
> > > > .
> > > > .
> > > > .
> > > > my $i = 0;
> > > > print "$windmill[3 & $i]\r";
> > > > while (this) {
> > > > .
> > > > .
> > > > .
> > > > $i++;
> > > > print "$windmill[3 & $i]\r";
> > > > }
> > > >
> > > > --
> > > > Today is Setting Orange, the 44th day of Confusion in the YOLD 3167
> > > > Hail Eris, Hack Linux!
> > > >
> > > >
> > > >
> > >
> > > Oops, leave off the first \r and change the second print to read
> > >
> > > print "\r$windmill[3 & $i]";
> > >
> > > I need more caffine.
> > >
> > > --
> > > Today is Setting Orange, the 44th day of Confusion in the YOLD 3167
> > > Pzat!
> > >
> >
> >
> --
> Today is Sweetmorn, the 45th day of Confusion in the YOLD 3167
>
>
>
