在Perl中模擬tail -f

Question

按照perldoc中提供的解決方案 ，我正在嘗試模擬tail -f但是它沒有按預期工作。 下面的代碼可以第一次打印所有行，但不能打印新添加的行。 如果我在這里遺漏任何東西，請您詳細說明。

#!/usr/bin/perl
open (LOGFILE, "aa") or die "could not open file reason $! \n";

for (;;)
{
        seek(LOGFILE,0,1);  ### clear OF condition        
        for ($curpos = tell(LOGFILE); <LOGFILE>; $curpos = tell(LOGFILE)) 
        {
                print "$_ \n";
        }

        sleep 1;
        seek(LOGFILE,$curpos,0); ### Setting cursor at the EOF
}

Answer 1

對我來說很好。 您如何更新"aa" ？ 如果它是對"aa"的buffered寫入，則不會立即看到數據。 您可以在其他終端中嘗試以下操作並檢查是否看到任何更新。

while ( 1 )
echo "test" >> aa
end

如果您正在使用perl更新aa ，請查看本節有關緩沖以及如何禁用的內容。