Perl - 向后读取循环日志文件

时间:2015-12-04 11:17:43

标签: perl binary freebsd logfile

我目前正在使用Perl使用恰当命名的File :: ReadBackwards模块向后读取日志文件。但是,它返回的第一行只包含

CLOG� ��

我是否因为尝试读取循环日志文件的最后一行而做错了什么?

这是相关代码:

use File::ReadBackwards;
my $filePath = '/var/log/';
my @fileNames = ('gateways.log', 'system.log');

for(my $i = 0; $i <= @fileNames; $i++){
    scanFile($filePath,$fileNames[$i]);
    sleep(60);
}

sub scanFile(){
    my $handle = File::ReadBackwards->new($_[0] . $_[1]);
    my $line = $handle->readline;
    return $line
}

编辑:我刚读过这篇文章 - commons-io't_I_view_view_log_files_with_cat / grep / etc%3F_(clog)

我似乎无法找到已经读取这些内容的模块或类似内容,有人能指出我从这个CLog中提取行的正确方法吗?

0 个答案:

没有答案