用PERL读动态增长文件的问题.

accessory

我现在想用PERL做一个类似 TAIL -F 的功能. 也就是读一个大的动态增长的问件. 在读完第一遍之后, 文件会变大.这时候我想跳到文件的末尾,然后重现开始读后面新加的部分.

网上找到了一个教程. 连接如下: http://oreilly.com/catalog/cookbook/chapter/ch08.html (在Trailing a Growing File这一段)

但是试了上面提到的3个方法, SEEK, CLEARERR 等, 都不行. 现象是在读完第一遍之后,就再也读不到新东西了.
也试了下载一个摸块: http://search.cpan.org/dist/File-Tail/
但是也不行. 到了 FILE->READ 之后就不动了.

哪位有更好的建议? 多谢

我的环境: CENTOS 5.3 64BIT. PERL 5.8.8

accessory

现在临时用SEEK的办法.每次都重新打开文件,然后SEEK到上次结尾的地方. 慢了点, 不过凑合着可以用.  

不知道那个EOF到底怎样才能清除掉?

Lonki

看看File::Tail的实现吧
http://search.cpan.org/~mgrabnar/File-Tail-0.99.3/Tail.pm

cobrawgl

use POE qw(Wheel::FollowTail);

sunbeat

以前写的windows下的tail脚本，用法仿照unix下的tail命令，用来看oracle的日志很方便：tail -f alertX.log

#!/usr/bin/perl
use strict;
use File::Tail;
my($flush,$tail_num,$filename);
my($exec_name)=$0;
&usage() if @ARGV>3 || @ARGV<1;
while(my $arg=shift @ARGV){     #判断命令行参数，-f用来标记刷新读取，-123的数字用来表示从最后的123行开始读取
        if($arg=~/^\-f\s*/){
                $flush=1;
        }
        elsif($arg=~/^\-(\d+)\s*/){
                $tail_num=$1;
        }
        elsif($arg=~/^\-\S*/||$arg=~/^\+\S*/){
                &usage();
        }
        else{
                $filename=$arg;
        }
}
&usage() unless $filename;
$tail_num=10 unless $tail_num;
my($timeout)=1;
die "No filename specified!\n" unless $filename;
unless(-f $filename){
        print STDERR "the file \"$filename\" does NOT exist!\n";
        exit;
};
my $f=File::Tail->new(name=>$filename,maxinterval=>1, tail=>$tail_num);
unless($flush){    如果没有-f参数，直接把结果输出
        print $f->read;
        exit;
}
my ($line,$nfound,$timeleft,$pending);
while (1) {   #如果有-f参数，那么不停的尝试读取文件，采用select的阻塞方式，这样占用资源最小
        ($nfound,$timeleft,$pending)=
                 File::Tail::select(undef,undef,undef,$timeout,$f);
    unless($nfound){
            #warn "timeout for waiting the file,and blocking...\n";
    }
    else{
       print $pending->read;
    }
}

sub usage{
        print "Usage: $exec_name [-f] [-N] filename\n";
        exit;
}

redicaps

POE++

dahe_1984

不知道这个是不是你要的， 实现的很简单， 不是我原创。

open (FD, "< /tmp/test.log") or die $!;
while (1) {
      my $in = <FD>;
      print $in;
}
close FD;

will.ni

学习了～～～

sun9527

open(L,"tail -F  $file |");

hotsnow

用 fifo 应该也可以实现。