bestimmte einträge aus einem logfile auslesen - #64842 (Allgemeines zu Perl)

Ronnie

2006-04-13 01:08

User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]

Mal ein kleines unvollständiges Beispiel. Zuerst alle "Blöcke" in ein Hash/Dictionary lesen und in einem Array ablegen. Dann das Array abklappern und die Elemente (aus den Hashes) raussuchen auf die das Filterkriterium zutrifft. Gibt natürlich viele andere Möglichkeiten.

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

my @entries;
my @filtered;

my $event = {};
while (<>) {
    chomp;
    
    unless ($_) {
        push @entries, $event if keys %$event;
        $event = {};
        next;
    }
    
    if (/^(\w+):\s?(.+)$/) {
        $event->{$1} = $2;
    } else {
        $event->{msg_text} .= $_."\n";
    }
}

@filtered = grep { $_->{Severity} =~ /Error/ } @entries;

die Dumper \@filtered;

Aufruf via:

Code: (dl )

$ perl skript.pl logfile.txt

\n\n