这就是我现在正在做的事情,但它会锁定文件.
@H_403_1@#!/usr/bin/perl
use Env qw( $USERNAME );
use File::Tail;
use strict;
use warnings;
my $file = $ARGV[0];
print "$file\n";
my $fileTail = File::Tail->new( name=>$file,maxinterval=>5,tail=>-1);
my $line;
while ( defined( $line = $fileTail->read ) )
{
print $line;
}
exit;
根据
documentation,它不应该锁定.但是你的操作系统是什么？我不知道你是否使用Windows,尽管shebang系列没有提示.因此,有关您环境的更多详细信息将会有所帮助.
