windows – 如何在不锁定perl的情况下拖尾日志文件

发布时间：2020-12-14 01:48:57 所属栏目：Windows 来源：网络整理

导读：这就是我现在正在做的事情,但它会锁定文件. #!/usr/bin/perluse Env qw( $USERNAME );use File::Tail;use strict;use warnings;my $file = $ARGV[0];print "$filen";my $fileTail = File::Tail-new( name=$file,maxinterval=5,tail=-1);my $line;while ( de

这就是我现在正在做的事情,但它会锁定文件.

#!/usr/bin/perl
use Env qw( $USERNAME );
use File::Tail;
use strict;
use warnings;

my $file = $ARGV[0];

print "$filen";

my $fileTail = File::Tail->new( name=>$file,maxinterval=>5,tail=>-1);
my $line;

while ( defined( $line = $fileTail->read ) )
{
    print $line;
}

exit;

根据 documentation,它不应该锁定.但是你的操作系统是什么？我不知道你是否使用Windows,尽管shebang系列没有提示.因此,有关您环境的更多详细信息将会有所帮助.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!