php - Perl で出力バッファをキャッシュしてクリアするにはどうすればよいですか?

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

特殊変数$|. ゼロ以外に設定すると、書き込みまたは印刷のたびにバッファをフラッシュします