| View previous topic :: View next topic |
| Author |
Message |
habazlam
-
Joined: 19 Feb 2005
Posts: 2
|
 Posted: Sat Feb 19, 2005 10:41 am Post subject: Unwanted STDOUT buffering in Windows |
 |
|
Hello,
I am unsuccessfully trying to accomplish "realtime" perl output to the browser:
| Code: |
#!/usr/bin/perl
$Header = qq|<html><head><title>Test</title></head><body>|;
$Footer=qq|</body></html>|;
$| = 1;
print "Content-type: text/html\n\n";
print $Header;
for ($x = 0; $x < 10; $x++)
{
print "Line $x<BR>\n";
sleep 1;
}
print $Footer;
exit; |
Should be showing one line a second, not all 10 lines dumped at once after 10 second (like its doing) :(
Thanks for any help! |
|
| Back to top |
  |
 |
aprelium
-
Joined: 22 Mar 2002
Posts: 6800
|
| Posted: Sat Feb 19, 2005 9:27 pm Post subject: Re: Unwanted STDOUT buffering in Windows |
|
|
habazlam,
Perl buffers output by default.
To disable buffering, add the following line:
So your code should like like:
| Code: |
#!/usr/bin/perl
$Header = qq|<html><head><title>Test</title></head><body>|;
$Footer=qq|</body></html>|;
$| = 1;
print "Content-type: text/html\n\n";
print $Header;
# No more buffering from now on.
$| = 1;
for ($x = 0; $x < 10; $x++)
{
print "Line $x<BR>\n";
sleep 1;
}
print $Footer;
exit;
|
_________________
Support Team
Aprelium - http://www.aprelium.com |
|
| Back to top |
 |
|
|
