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

1491

“

解決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] 使用CPAN安裝模組在Linux 上，CPAN 可以用來安裝或管理 perl 的模組，此文教你怎麼做。

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

PERL的真值和假值(布林值) 整理Perl中的判斷真假的結果

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

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

[NetBeans] 使用git複製別人的專案 NetBeans使用git複製別人的專案及版本控制

「許功蓋」的字以及源由有玩過電腦一段時間的人，都聽過這個人(有一天我才發現7年級的竟然都不認識這個

維修海棉拖把頭這類型的海棉拖把很好用，可是這近發現海棉頭越來越不耐用，也許是錯覺，以往都能用個三四個月，現在二個月就差不多掉下來。這

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