如何在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中緩存並清除輸出緩衝區？

回答

相關問題