Richard wrote:
wanted to draw a box that's counting up for certain time.
Thought I could use the counter but it just displays the box not the
number..
can anyone point it out for me?
thank you.
use warnings;
use strict;
sub counter {
my $count;
my $counting = <<EOF;
====================================================
|
Counting...
|
|
++$count;
|
|
|
====================================================
EOF
return sub { print $counting }
}
my $real_count;
my $yeah = counter();
while ($real_count < '35') {
++$real_count;
system('clear');
$yeah->();
}
I am assuming this will not work because above clousure will have no
access to variable $count.. trying to see if there is another way to get
this done.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/