John W. Krahn wrote:
Richard wrote:
John W. Krahn wrote:
You want something more like this:
sub counter {
my $count;
my $clear = `clear`;
my $counting = <<'EOF';
%s====================================================
| Counting... |
| %2d |
| |
====================================================
EOF
return sub { local $| = 1; printf $counting, $clear, ++$count }
}
my $yeah = counter();
for ( 1 .. 35 ) {
sleep 1;
$yeah->();
}
this is interesting and this also works well.
My question is, how does perl know in this instance that %2d is
refering to $count.. is it because $clear contains none numeric value
or because $count contains numeric value?
$counting contains the format string for printf() and the first
argument $clear is substituted for '%s' in $counting and the second
argument ++$count is substituted for '%2d' in $counting. They are
substituted in the same order as they appear.
John
Just curious, in programming in general, is it possible to do other
things while counting is going on?
Is this possible in perl?
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
