скрипт 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