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->();
}
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
