perl的輸出緩衝

標籤：

 

今天寫一個小指令碼的時候，需要即時輸出當前進度到命令列上，並即時將重要資料寫入報告檔案中。但是perl預設是有輸出緩衝的，顯示到命令列上必須以\n結尾才行，輸出到檔案中，斷行符號了都不行，非得要等緩衝區滿了。
代碼:

select( STDOUT );
$| = 1;
open( REPORT, ">report.txt" ) || die "create report error: $!\n";
select( REPORT );
$| = 1;
select( STDOUT );

      在寫入報告和輸出進度之前這樣處理一下就可以了。第一句是選擇標準輸出控制代碼為當前預設輸出控制代碼，並設定為不緩衝方式。然後選擇檔案控制代碼為預設輸出控制代碼，設定為不緩衝模式。再最後重新設定STDOUT為預設輸出控制代碼，少了這一句的話，標準輸出就被重新導向到檔案裡面去了。
      這樣就會即時寫入報告，不用擔心遺失資料了。即使中途中止了程式，也有一部分結果在。做個小tip，免得忘記了，呵呵。

perl的輸出緩衝