Perl - 將文件寫入標準輸出最後一行時缺少

Question

我在空閒時間學習Perl，我正在嘗試編寫一個簡單的腳本來打開並刷新某個文件。 下面的代碼段應該打開文件並將其寫入標準輸出。它確實，但不幸的是，它沒有最後一行打印文件。

任何想法爲什麼？

use strict; 
use warnings; 

my $filesizeold = 0; 

while(1){ 
    my $filesize = -s "input.txt"; 

    if($filesize != $filesizeold) { 
     system $^O eq 'MSWin32' ? 'cls' : 'clear'; 
     open INPUT, "<input.txt"; 
     while (<INPUT>) { 
      print; 
     } 
     close INPUT; 
    } 

    $filesizeold = $filesize; 
} 

Answer 1

也許有類似的println而不是打印？

是有，你可以使用say。

http://perldoc.perl.org/functions/say.html

其打印的文件，而無需最後一行

我認爲你是suffering from buffering。