perl 如何tail多个文件

风吹不倒

使用模块File::Tail

1.   use File::Tail;
   
2.   $file=File::Tail->new(name=>$filename, maxinterval=>300, adjustafter=>7);
   
3.   while (defined($line=$file->read)) {
   
4.       print "$line";
   
5.   }

复制代码

现在能实现一个文件的tail，但我想同时tail多个文件，该如何修改代码？

wtuter

回复 1# 风吹不倒


    new 多个$file不行么

风吹不倒

回复 2# wtuter


    能是能，但有接下来的问题，这个是实现tail的功能，用了循环就只能停在第一个文件;或者就是必须每个文件都产生变化了才能继续执行

alabos

用多线程， 每个线程对应一个File::Tail

在循环中，把结果放到  Thread:ueue  中。


然后在主程序中， 处理。

wtuter

回复 3# 风吹不倒


    估计一下tail后新加的内容大概有多少，每个tail的内容都加到一个文件，最后list这个文件内容

风吹不倒

用多线程， 每个线程对应一个File::Tail

在循环中，把结果放到  Thread:ueue  中。


然后在主程序 ...
alabos 发表于 2011-03-09 15:56

我也是这个想法，不过现在还不会。。  找到了File::Tail::Multi模块，顺利tail多个文件了，不过也失去了File::Tail的reopen file功能; 过几天改进成多线程去