我目前正在使用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中提取行的正确方法吗?