Question

我有以下PHP代码打开输出缓冲区，包含一个文件，将其存储在变量中，并清除缓冲区：

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

Perl中的等效内容如何？

Answer 1

$| = 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);

Answer 2

特殊变量$|。设置为非零时，每次写入或打印后都会刷新缓冲区

Answer 3

所以相应的是：

# 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);

<强>参考

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

3 个答案: