2008-06-13
■ [perl]File::Tail - 定期的にファイルを追いかける 
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だと、タイムラグがあるので小さめにしてみた。
コメントを書く