うまい棒の断片

■ [perl]File::Tail - 定期的にファイルを追いかける 18:41

tail -fしたみたいに、入力を追い続ける。

ログを監視するdaemonチックなプログラムの時に使えそう。

swatch使えよっていうのはまた別のお話で :-)

use File::Tail;
my $file = File::Tail->new(
  name        => "/path/to/file",
  interval    => 1,
  maxinterval => 5,
);
while (my $line=$file->read) {
  print "$line";
}

デフォルトのintervalとmaxintervalだと、タイムラグがあるので小さめにしてみた。