ファイルを tail -f 的に入力 (module)File-Tail

オプションモジュール
(deb) libfile-tail-perl
File/Tail.pm だけ配置するだけでも動作
http://search.cpan.org/~mgrabnar/File-Tail-0.98/Tail.pm

対象ファイルに対して tail -f $file と同等の動きをする

↓ こいつの実行中に、date >> sample.log とかしてみる
----
#!/usr/bin/perl

use File::Tail;

$log = "sample.log";
my $ref = tie *TAIL, "File::Tail", (
                                    name=>$log,
                                    interval=>1,
                                    maxinterval=>1,
                                    );
while(<TAIL>) {
  print;
}
----
maxintervalは小さい値にしておかないと、反応が鈍いT-T