Lesen log file - #167839 (Allgemeines zu Perl)

Muffi

2013-05-27 10:49

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

So ganz hab ich das Problem nicht verstanden, aber hilft vielleicht ein Perldoc:

perlop
flip-flop operator weiter?

PS: Ich würd über so eine grosse Schleife kein $_ benutzen und auch $1 möglichst sofort abholen.

[EDIT] Grobgerüst

Code (perl): (dl )

my $command = '';
for my $line (@d) {
        if ($line =~ /^<(.+)/ ... $line =~ /^<($command)/) {
                $command = $1;
                say "REIN ".$command.' '.$line;
        }
        else {
                say "RAUS ".$command.' '.$line;
        }
}

Last edited: 2013-05-27 11:10:35 +0200 (CEST)

1 + 1 = 10