Tobias Hoellrich <> wrote: > Try: > $|++; > to unbuffer STDOUT. > > Hope this helps - Tobias
Not quite. <pedant_mode> That variable activates autoflush, which isn't quite the same as unbuffered output, on the currently selected filehandle, which may not actually be STDOUT (see 'perldoc perlvar'). </pedant_mode> Also, it is usually better to localise the use of such special variables. For example: print "Doing stuff "; for (1..20) { local $| = 1; select undef, undef, undef, 0.5; print "."; } print "\n"; Also, consider a more 'sophisticated' alternative to ".", that I sometimes use. print "Doing some more stuff "; my $i = 0; for (1..20) { local $| = 1; select undef, undef, undef, 0.5; print "\b" . qw{| / - \\}[$i++ % 4]; } print "\b \n"; HTH -- Brian Raven Visit our website at http://www.nyse.com **************************************************** Note: The information contained in this message and any attachment to it is privileged, confidential and protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify the sender immediately by replying to the message, and please delete it from your system. Thank you. NYSE Group, Inc. ______________________________________________________________________ This email has been scanned by the MessageLabs Email Security System. For more information please visit http://www.messagelabs.com/email ______________________________________________________________________ _______________________________________________ Perl-Win32-Users mailing list Perl-Win32-Users@listserv.ActiveState.com To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs