perl脚本：使用Sleep（）或Pause（）等待新的更新数据

Question

是否有任何方法可以编写程序来使用sleep()函数或pause()函数等待需要更新文本文件？程序暂停在执行阶段，一旦特定文件更新，程序将继续工作。

#!/usr/bin/perl

open (FILE, "/home/terrance/Desktop/perl/record.txt") || die "$!";

while(my $line = <FILE>)
{
        chomp($line);
        my $offset =0;
        seek(FILE, $offset, 1);
        print "$line\n";
        sleep(0.1);
}

Answer 1

你需要像tail -f这样的东西吗？如果是，请尝试File::Tail