Perl поможет разобрать файл журнала на основе ввода времени

Question

Perl новичок здесь.У меня есть файл журнала, который мне нужен для анализа «Резервное копирование выполнено успешно» и любых записей «Ошибка:».Я попытался разобрать файл журнала с помощью unix cat и передать его в grep.Я получил нужную информацию, но я хотел бы попробовать это в perl, а также иметь возможность передать параметр даты и дать мне строки на основе нужной мне даты.

Примервывод файла журнала: (резервное копирование выполнено успешно)

Wed Jun 09 06:14:25 2010: db2.cal.mil.mad:backup:INFO: flush-logs-time=00:00:00
Wed Jun 09 06:14:25 2010: db2.cal.mil.mad:backup:INFO: backup-time=06:14:23
Wed Jun 09 06:14:25 2010: db2.cal.mil.mad:backup:INFO: backup-status=Backup succeeded
Wed Jun 09 06:14:25 2010: db2.cal.mil.mad:backup:INFO: Backup succeeded

Пример вывода файла журнала: (Ошибка:)

Wed Jun 09 05:00:03 2010: rip1.mil.mad:backup:ERROR: mysql-zrm appears to be already running for this backupset
Wed Jun 09 05:00:03 2010: rip1.mil.mad:backup:ERROR: If you are sure mysql-zrm is not running, please remove the file /etc/mysql-zrm/rip1.mail.mad/.mysql-zrm.pid and restart mysql-zrm

** Я хотел бытекст и / или электронное письмо с этой информацией.Вроде бы так, но с возможностью указать нужную мне дату.

Wed Jun 09 05:00:03 2010: rip1.mil.mad:backup:ERROR: mysql-zrm appears to be already running for this backupset
Wed Jun 09 05:00:03 2010: rip1.mil.mad:backup:ERROR: If you are sure mysql-zrm is not running, please remove the file /etc/mysql-zrm/rip1.mail.mad/.mysql-zrm.pid and restart mysql-zrm
Wed Jun 09 06:14:25 2010: db2.cal.mil.mad:backup:INFO: backup-status=Backup succeeded

Если хотите, предоставьте мне какой-нибудь Perl-код и / или идеи для начала.Буду признателен за помощь.Спасибо.

Answer 1

#!/usr/bin/perl

# usage example: <this script> Jun 09 2010 <logfile>

use strict;
use warnings;

my ($mon,$day,$year) = ($ARGV[0],$ARGV[1],$ARGV[2]);

open(FH,"< $ARGV[3]") or die "can't open log file $ARGV[3]: $!\n";

while (my $line = <FH>) {
    if ($line =~ /.* $mon $day \d{2}:\d{2}:\d{2} $year:.*(ERROR:|Backup succeeded)/) {
    print $line;
}
}

Answer 2

Вот простой скрипт.Имя файла для сканирования и целевая дата жестко запрограммированы.Матчи печатаются в STDOUT.

Кстати, этот код полностью не проверен.Я набрал его в текстовое поле в моем браузере.

use strict;
use warnings;

my $logpath = './bar/log';
my $target = 'Jun 09 2010';

open my $fh, '<', $logpath or die "Error opening $logpath $!\n";

while (my $line = <$fh> ) { 

    next unless date_match( $target, $line );

    next unless my $result = got_error($line) // got_backup($line);    

    print $result;
}

sub got_backup {
     my $line = shift;

     return unless $line =~ /backup-status=Backup succeeded/;

     return $line;
}

sub got_error {
     my $line = shift;

     return unless $line =~ /:ERROR:/;

     return $line;
}


# Take a line and a target date.  Compare the date derived from the line to
# the target, and returns true if they match.
# Also always returns true if target is not defined

sub date_match {
    my $target = shift;
    my $line = shift;

    return 1 unless defined $target;  # Always true if target is undefined.

    # Where did that god-awful date format come from?  Yech.
    my $date = extract_date($line);

    return $date eq $target;
}

# Simple extract of date using split and join with extra variables
# to make it newbie friendly.
# IMO, it would be a good idea to switch to using DateTime objects and 
#    DateTime::Format::Strptime

sub extract_date {
    my $line = shift;

    my @parts = split /:/, $line;
    my $date = join ':' @parts[0..2];
    @parts = split /\s+/, $date;

    $date = @parts[1,2,4]; 

    return $date;        
}

• Вы можете использовать Getopt :: Long , чтобы получить имя файла и целевую дату.

• Это будетРекомендуется использовать более надежную схему анализа и сравнения даты и времени.DateTime и друзья - очень хорошие, мощные модули для манипулирования датами.Проверьте их.

• Если вы обрабатываете тонны данных и нуждаетесь в большей эффективности, вы можете избежать копирования $line везде разными способами.

• Для дальнейшего использования, если вы разместите небольшой код, вы получите лучшие ответы