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

1512

“

解決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一次讀取檔案所有內容的方法($/) perl可以使用slurp mode一次讀完檔案所有內容的方法及一些範例

[PERL] 23-多執行緒而多執行緒的程式，可在一次執行程式時間，同時進行多線程的計算，在效率上可獲得即大的提升。

[PERL] 自寫 trim, ltrim, rtrim 函數常用的 perl 函數中沒有trim, ltrim, rtrim這三個函數，那就自己來寫，非常容易

[PERL] 17-參照 PERL的參照，就是指標

使用Google尋找你的手機這近發現google竟然可以用來找android的手機，而且不需要經過什麼設定或安裝軟體。

PHP for sphinx 函式庫安裝 PECL/sphinx PHP>= 5.2.2 已經能原生支援 sphinx，可是預設的沒有裝，我們得自己裝才能用

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

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

一個邏輯的錯誤刪了全部檔案的經驗今天本來想做一件很簡單的事，但卻足足浪費我多一倍的時間，再加上刪掉我全部的檔案，原因只是因為我自己的邏輯錯誤。