How to stop print newline with autoflush handle on?

[David]

use strict;
use warnings;

$| = 1;

for ( 1 .. 5 )
{
print ".";
sleep 1;
}

the code prints:
..
..
..
..
..

without $| , it will print out: ..... How can I get the behavior of $|
without the newline?
Thanks for the help.

David

 

[Peter J. Acklam]

use strict;
use warnings;

$| = 1;

for ( 1 .. 5 )
{
print ".";
sleep 1;
}

the code prints:
.
.
.
.
.

Well, it shouldn't, if the above is all your code. All the dots
should be printed on the same line. And they are, on my computer.
I am using Cygwin on Win2K. You are using ActivePerl on Windows?

Peter

 

[David]

Yes, I'm using Active perl on Windows XP Pro.

Well, it shouldn't, if the above is all your code. All the dots
should be printed on the same line. And they are, on my computer.
I am using Cygwin on Win2K. You are using ActivePerl on Windows?

Peter

 

[Peter J. Acklam]

Yes, I'm using Active perl on Windows XP Pro.

It seems like a bug to me. Or perhaps something with the shell.
I don't see how you make perl get around this.

Peter

 

[Peter Wyzl]

: use strict;
: use warnings;
:
: $| = 1;
:
: for ( 1 .. 5 )
: {
: print ".";
: sleep 1;
: }
:
: the code prints:

I run Activeperl on Windows XP Pro and get ..... with that code cut and
pasted...

P