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
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
