perl - 退出拖尾文件 - 在 perl 中

Question

我有这段代码，它基本上是一个文件的尾部。该文件每秒填充近 100 个条目。

open (MYFILE, 'output.txt');
for (;;)
{
    while (<MYFILE>)
    {
        chomp;
        my $test=$_;
        if  ($test =~ m/^ok/)
        {
            $passed++;
            print "Number of passed :$passed\n";
            print "Number of failed :$failed\n";
        }
        elsif ($test =~ m/^not/)
        {
            $failed++;
            print "Number of passed :$passed\n";
            print "Number of failed :$failed\n";
        }
        elsif ($test =~ m/^The time taken is: (.*)/)
        { push (@array, "$1") ; }
        $row++;

    }
sleep (5);
print "It has been ".(time - $time)."seconds\n";
seek(MYFILE, 0, 1);

}

所有这些工作正常，但我希望这个 perl 脚本在文件output.txt不再被填充时自动退出。

除了使用标志技术之外还有其他方法吗？perl做出的规定？

Answer 1

我所知道的 Perl 中没有内置任何东西。您可以检查文件大小（使用tell），记录文件大小更改的时间，如果自上次更改以来已经过去了太多时间，则退出。