如何在Perl中缓存并清除输出缓冲区？

我有打开的输出缓冲器，包括文件，并将其存储在一个变量，并清除缓冲区下面的PHP代码：如何在Perl中缓存并清除输出缓冲区？

ob_start(); 
include('test.html'); 
$input=ob_get_clean();

如何将相当于看在Perl？

来源

2013-01-22 Paul Sweatte

查看此页面上的perlvar并在答案中搜索'$ |'，如下所示。 http://perldoc.perl.org/perlvar.html – squiguy

谢谢，这就是我一直在寻找的。 –

特殊变量$|。当设置为非零值时，在每次写入或打印后缓冲区清空

来源

2013-01-22 05:00:14 Guru

$| = 1;将打开当前所选句柄的禁用缓冲（默认为STDOUT）。换句话说，

$| = 1;

在功能上等同于

use IO::Handle qw(); # Not needed since 5.14. 
select()->autoflush(1);

这通常意味着

use IO::Handle qw(); # Not needed since 5.14. 
STDOUT->autoflush(1);

来源

2013-01-22 05:19:28 ikegami

所以等效将是：

# open a file handle try to get test.html 
open(my $fh, "<", "test.html") || 
    die 'Could not open test.html: '.$!; 
# return the currently selected filehandle 
select($fh); 
#clear the output buffer 
select()->autoflush(1);

参考

来源

2014-07-09 18:52:45

如何在Perl中缓存并清除输出缓冲区？

回答

相关问题