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

1094

“

解決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] 08-陣列 #2 --操作更多perl陣列的操作，如拆開、黏合、取出、加入等等

[PERL] 01-撰寫第一隻PERL程式及目錄 PERL的系列教學文，適合有其他程式經驗但沒學過PERL的人

PERL一次讀取檔案所有內容的方法($/) perl可以使用slurp mode一次讀完檔案所有內容的方法及一些範例

[PERL] 命令列傳入參數 argv Perl 的外部傳參，是$ARGV[0]、$ARGV[1]、$ARGV[2].....

為什麼要重造輪子？什麼輪子？造什麼輪子？我為什麼要重造輪子？

[Win7] 燒錄 iso 檔在Windows7 中內建燒錄程式，可以直接把檔案拉到光碟機裡，再執行燒錄。

[大型機台] 熱血高校躲避球多少少年時光歲月耗在這個遊戲上，二十幾年前的那個時光，唯一想做的事就是把吃飯錢省下來拿去打一場五塊錢的電動，就算是沒錢也

[MYSQL] 設定字串欄位的預設值新增表格的時候，字串欄位給予預設空值；數字欄位給預設數值；日期欄位給空值。