"Michael W.Cocke" wrote:
> This is probably a stupid question, but does anyone know how to force
> the output of print to actually PRINT, without forcing me to use a \n?
{
local $| = 1;
...code for which you need output autoflushed
}
{
local $| = 1;
my $total = 0;
for (1..10) {
my $thousands = $_;
for (1..10) {
my $hundreds = ($thousands * 10) + $_;
for (1..100) {
$current = ($hundreds * 100) + $_;
$current-- while $current;
}
print '.';
}
print "\b"x9, ' 'x9, "\b"x9;
}
print "\n";
}
Joseph
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
