[PERL] Perl 不立即輸出的列印緩衝區問題 @新精讚

998

“

解決Perl 不立即輸出而是最後一次輸出的列印緩衝區問題

„

從下面的程式範例開始，在控制台(console)中執行這個perl程式，每隔1秒列印 '.'，共100秒：

for(1..100){
print ".";
sleep(1);
}

結果並不會1秒印一個點 '.' 出來，而是到了100秒之後，一次把100個點印出來出來。

而我不要這樣的結果，我想要一個個點分別印出來，因此查找了一下，發現這是列印緩衝區的問題：

除非 print 遇到換行 "\n"或結束，否則他不會輸出到STDOUT(檔案或console或印表機)

要將內容直接送出，就要用到特殊變數 $|，也就是一個錢號'$'和一個垂直線'|'。當$|為非0值時，他會將緩衝區的文字送出。因此程式改寫如下：

for(1..100){
    print ".";
    $|=1;
    sleep(1);
}

就可以解決這個問題。但這不是好的作法，因為 $|只要設定一次即可，所以下面才是好的作法：

$|=1;
for(1..100){
    print ".";
    sleep(1);
}

原文 2009-11-26 23:53:54

END

[PERL] 06-運算子 #2 PERL的運算子介紹，總共有21種

Perl 計算經過的時間 Perl 計算程式執行經過的時間

[PERL] 13- 變數的視界變數的使用範圍，什麼是my，什麼是our？

[PERL] Perl 不立即輸出的列印緩衝區問題解決Perl 不立即輸出而是最後一次輸出的列印緩衝區問題

[PERL] 用substr切割及置換字串 perl用substr來切割及置換字串

安裝SPHINX支援中文新版本的 sphinx 和舊版不同，網路上很多範例和教學是不能用的。此文是安裝和設定方法分享

UTF-8的網頁但IE8一片空白 UTF8編碼的網頁在Firefox 正常顯示、但IE8 就是空白，IE8編碼設定是「自動偵測」可是自動偵測到的是 big5...

世紀帝國征服者新版本--被遺忘的帝國世紀帝國征服者新版本--被遺忘的帝國世紀二代的征服者是精典遊戲中的精典，aofe更好玩...

[AS3] 我做的唯一一個Flash As3遊戲UFO INVADSION [AS3] 我做的唯一一個Flash As3遊戲，是第一個也是最後一個，後來就沒再寫as3，不過as3還滿好玩的。