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

1123

“

解決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] 10- 雜湊 Perl 的hash 指標陣列

[PERL] 簡易檢查網頁記錄檔ip來源統計利用PERL來檢查網頁記錄檔ip來源統計的簡易程式

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

[PERL] 08-陣列 #2 --操作更多perl陣列的操作，如拆開、黏合、取出、加入等等

[PERL] 常態分配亂數產生函數一般而言我們使用程式內建的 rand 函數取得的亂數是平均分配的，但如果需要常態分配的亂數產生器該怎麼做？

[MAC] 截取螢幕畫面的方法截取螢幕畫面的方法，在MAC中叫作螢幕快照，英文是screenshot

[PHP] 檢查IP是否在某個網段內 mtachcidr 要檢查IP是否在某個網段內，要寫幾行？10行？5行？不用，只要2行。以下是我寫的 code /** * matchCI

對物品的感情這個議題很奇怪，可是大部分的人都會有，物品是死的，壞了就淘汰，出新的就被替換。為何會有情感？

分享還是炫耀？是分享還是炫耀，取決於對方的的心態和你的心態...