perl File::Tail模块的使用

概述最近在做一个实时数据的工作，需要读取不断更新的文件，类似shell中tail的功能，使用了perl的File::Tail模块,简要代码如下 use File::Tail; my $file=File::Tail->new(name=>&new_file($first_file_date),interval=>1,maxinterval=>10,tail=>-1,reset_tail=>-1,nam

最近在做一个实时数据的工作，需要读取不断更新的文件，类似shell中tail的功能，使用了perl的file::Tail模块,简要代码如下

use file::Tail;

my $file=file::Tail->new(name=>&new_file($first_file_date),interval=>1,maxinterval=>10,tail=>-1,reset_tail=>-1,name_changes=>\&new_file,deBUG=>1);

while (defined(my $line=$file->read)) {

...

}

sub get_cur_date{
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime();
$year+=1900;
$mon++;
if($mon<10){$mon="0".$mon;}
if($mday<10){$mday="0".$mday;}
$year.$mon.$mday;
}
sub new_file{
my $file_date=$_[0]||&get_cur_date();
return "/logdir/logfile".$file_date.".log";
};

参数说明：设置tail参数为正数，将从头读取文件

设置name_change为一个函数引用，即读取当前文件的下一个文件，本例中的文件是以天记的

设置interval，即程序启动后距离第一次读取文件的时间间隔

设置maxinterval，即当文件没有更新时，程序的sleep时间

参考：http://search.cpan.org/~mgrabnar/File-Tail-0.99.3/Tail.pm

总结

以上是内存溢出为你收集整理的perl File::Tail模块的使用全部内容，希望文章能够帮你解决perl File::Tail模块的使用所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。