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,name_changes=>&;new_file,debug=>1); while (defined(my $line=$file->read)) { ... } sub get_cur_date{ 参数说明:设置tail参数为正数,将从头读取文件 设置name_change为一个函数引用,即读取当前文件的下一个文件,本例中的文件是以天记的 设置interval,即程序启动后距离第一次读取文件的时间间隔 设置maxinterval,即当文件没有更新时,程序的sleep时间 参考:http://search.cpan.org/~mgrabnar/File-Tail-0.99.3/Tail.pm (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |