Perl无法尾部旋转日志文件

Question

我正在使用基于属性的rsyslog过滤器将特定日志发送到单独的文件，在这些文件中将使用perl解析这些日志。

这是我的rsyslog条目

$template SPLIT,"/home/shivam/hello-%$YEAR%%$MONTH%%$DAY%%$HOUR%%$MINUTE%"
:msg, contains, "hello" -?SPLIT

因此，rsyslog将为每分钟之后出现的日志创建单独的文件。 文件将被创建为hello-201505281139 。

我解析这些文件的Perl脚本是

use strict;
use warnings;
use POSIX qw(strftime);

my $date = strftime "%Y%m%d%H%M", localtime;
my $file = '/root/defer-'.$date;
open(my $fh,'<',$file) or die "unable to open file $!\n";

while(1) {
    while(my $line = <$fh>){
                    print "$date\n";
                    print "$line";
            }
    sleep(2);
    unless ($date == strftime "%Y%m%d%H%M", localtime) {
            close($fh);
            $date = strftime "%Y%m%d%H%M", localtime;
            $file = '/root/defer-'. $date;
            system("touch $file");      
            open(my $fh,'<',$file) or die "unable to open file $!\n";

    }
}

在除非块中，否则我正在检查分钟是否已更改，然后我关闭上一个文件并打开新文件。 我从脚本创建新文件而不等待rsyslog创建文件的原因是日志的出现频率不是那么高。 因此，我创建了文件并开始阅读它，希望当任何新日志出现时我都能阅读。

但是正在发生的事情是我能够创建新文件，但无法从该文件读取任何内容。

这就是我得到的警告

readline() on closed filehandle $fh at test.pl line 14.

我的代码中的第14行是while(my $line = <$fh>){

我在代码中看不到任何错误。 请提出错误所在。

Answer 1

您有两个不同的$fh词法（我）变量，

所以改为声明一个新的

open(my $fh,'<',$file) or die "unable to open file $!\n";

继续使用先前声明的

open($fh,'<',$file) or die "unable to open file $!\n";