Hilfe Log datei analysieren in Perl: Hilfe Log datei analysieren in Perl - #68953 (Allgemeines zu Perl)

Ronnie

2006-08-16 15:47

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

Aus meiner Sicht ist es mit regulären Ausdrücken kaum zu machen, die einfache Variante fällt also weg. Wenn du nicht beim copy&paste was "unterschlagen" hast, fallen auch andere Möglichkeiten weg, da die Anzahl öffnender und schließender Klammern nicht übereinstimmt:

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

my ($o, $c) = 0, 0;

while(<>) {
    /\{/ and $o++;
    /\}/ and $c++;
}

print 'opening curled brackets: ' . $o . "\n";
print 'closing curled brackets: ' . $c . "\n";