Perl处理日志文件

debugcn 发表于 Dev

玛娜·德拉戈什（Manea Dragosh）

我想创建一个在Linux中处理日志文件的perl脚本。想法是将其他人的“有趣”字句进行排序。我的计划是：-临时复制日志文件（因为它经常被写入）-搜索“有趣的”行（关键字）-将它们复制到另一个文件“ log.processed”中-通过e发送该文件邮寄给我。（我认为这部分将由cron完成）

直到现在我有这个：

#!/usr/bin/perl
#use strict;
use warnings;
use File::Copy;

copy("/home/hq-asa.log","/home/hq-asa.temp") or die "Copy failed $!";
$NewLog     = "/home/hq-asa.processed";
our $search = "keyword1|keyword2|";
my $TempLog = "/home/hq-asa.temp";

open (my $LogFile, "+<", $TempLog) or die "Could not open log temp file $!";
qx(touch $NewLog);
open ($newlog, "+<", $NewLog) or die "could not open new log file $!";
foreach $line (<$LogFile>) {
    if (($line =~ m/$search/) or ($line eq $search))  {
        print $newlog $line;
    }
}
close($LogFile);
close($newlog);
unlink "/home/hq-asa.temp";

不要判断，我是新手。问题是，如果我希望例如每小时运行一次此脚本，它将一次又一次处理所有原始日志文件。我可以在原始日志文件中插入“书签”，并告诉此脚本搜索最后一个并从那里继续吗？还是应该怎么做？

达西姆

写出一个状态文件，其中包含您上次中断的行号。要恢复处理时，请先读取状态文件，然后跳过行数。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。