r1 - 06 Aug 2006 - JoenioCosta

Como fazer um tail -f em perl

Problema

Você quer que o programa leia fique lendo o final de um arquivo que está sendo continuamente atualizado, à espera de novas linhas.

use File::Tail;

O módulo File::Tail permite ler o final de um arquivo enquanto ele está sendo escrito:

  use File::Tail;
  $file=File::Tail->new("/some/log/file");
  while (defined($line=$file->read)) {
      print "$line";
  }

Observe que o loop acima não termina nunca. Se nenhuma linha for lida, o programa continuará esperando, indefinidamente.