print outbut being buffered...

[Michael W . Cocke]

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?

It's sort of futile to print a '.' every 60 seconds to indicate the
app hasn't crashed if the line of periods doesn't show up on the
screen until a half hour later....

Thanks!

Mike-
Mornings: Evolution in action. Only the grumpy will survive.
-----------------------------------------------------

Please note - Due to the intense volume of spam, we have
installed site-wide spam filters at catherders.com. If
email from you bounces, try non-HTML, non-encoded,
non-attachments.

[John W. Krahn]

"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?
>
> It's sort of futile to print a '.' every 60 seconds to indicate the
> app hasn't crashed if the line of periods doesn't show up on the
> screen until a half hour later....

Well, if you want to use print() you are going to have to turn on
autoflush.

$| = 1; # autoflush on
for ( 1 .. 10 ) {
print '. ';
sleep 1;
}
print " done.\n";

Another way to do it is to use syswrite instead which is not buffered.

for ( 1 .. 10 ) {
syswrite STDOUT, '. ';
sleep 1;
}
print " done.\n";



John
--
use Perl;
program
fulfillment

[Drieux]

On Jan 27, 2004, at 6:59 AM, 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?
>

did you try

$| = 1;

cf perldoc perlvar


ciao
drieux

---

[R. Joseph Newton]

"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

[Michael W . Cocke]

On Thu, 29 Jan 2004 03:12:21 -0800, [email]krahnj@acm.org[/email] (John W. Krahn)
wrote:

>"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?
>>
>> It's sort of futile to print a '.' every 60 seconds to indicate the
>> app hasn't crashed if the line of periods doesn't show up on the
>> screen until a half hour later....

>
>Well, if you want to use print() you are going to have to turn on
>autoflush.
>

[snipped]

Thanks! That's what I wound up doing. I don't know why, but it took
2 days for my message to post.. I appreciate the replies, but the
question is long answered.

Mike-

Mornings: Evolution in action. Only the grumpy will survive.
-----------------------------------------------------

Please note - Due to the intense volume of spam, we have
installed site-wide spam filters at catherders.com. If
email from you bounces, try non-HTML, non-encoded,
non-attachments.