1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
#!/usr/bin/perl print "Geben Sie den namen der .log Datei ein: " ; my $log =<STDIN>; open(LOG, $log) || die "Log nicht gefunden"; #my $log =<STDIN>; my @zeilen = <LOG>; my $zeilen; my $korr = "eingepflegt"; my $err = "Fehler"; my $versch = "Verschiebe"; my $cversch = 0; my $cerr = 0; my $cerflg = 0; my $belegezeile = "30917"; splice(@zeilen, 0, 180); foreach $zeilen(@zeilen) { if(index($zeilen, $belegezeile)ge 0) { print "Beginne belege $belegezeile"; } if(index($zeilen, $versch )ge 0) { $cversch ++; } if(index($zeilen, $err )ge 0) { $cerr ++; } if(index($zeilen, $korr) ge 0) { $cerflg ++; } } close(LOG); print $zeilen[0]; #print $zeilen[180]; print "\n"; print "Datei eingelesen...\n"; print "----------------------------------------------------\n"; sleep 1; print "Verschobene Dateien: $cversch\n"; print "----------------------------------------------------\n"; sleep 1; print "Erfolgreich eingepflegte Dateien: $cerflg\n"; print "----------------------------------------------------\n"; sleep 1; print "Fehler: $cerr\n";
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
while(<LOG>) { if($_ eq 'Verschieben') { $cversch ++; } if($_ eq 'eingepflegt') { $cerflg ++; } if($_ eq 'Fehler') { $cerr ++; } }
1 2 3 4 5
while (my $line = <LOG>) { $cversch++ if $line =~ /^Verschieben/; # 'Verschieben' am Zeilenanfang # usw. }
2013-01-22T19:19:24 deadfmAlso okay, ich weiß nicht wie man hier Beiträge editiert,
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50
#!/usr/bin/perl use warnings; use strict; print "Geben Sie den namen der .log Datei ein: " ; my $log =<STDIN>; open(LOG, $log) || die "Log nicht gefunden"; #my $log =<STDIN>; #my @zeilen = <LOG>; #my $zeilen = $_; my $zeil = 181; my $korr = "eingepflegt"; my $err = "Fehler"; my $versch = "Verschiebe"; my $cversch = 0; my $cerr = 0; my $cerflg = 0; my $belegezeile = 30914; while(<LOG>) #Whileschleife für die Durchsuchung der Datei { if($_ =~ $versch) #Datei auf "Verschieben" prüfen { $cversch ++; } if($_ =~ $korr) #Datei auf "eingepflegt" prüfen { $cerflg ++; } if($_ =~ $err) #Datei auf "Fehler" prüfen { $cerr ++; } } close(LOG); print "\n"; print "Datei eingelesen...\n"; print "----------------------------------------------------\n"; sleep 1; print "Verschobene Dateien: $cversch\n"; print "----------------------------------------------------\n"; sleep 1; print "Erfolgreich eingepflegte Dateien: $cerflg\n"; print "----------------------------------------------------\n"; sleep 1; print "Fehler: $cerr\n";
1 2 3 4 5 6
# 180 mal zeilenweise aus Datei lesen und ignorieren <FILEHANDLE> for 1 .. 180; while ( <FILEHANDLE> ) { # ... weiter geht's }
2013-01-23T11:16:33 deadfmCode (perl): (dl )1 2 3 4 5 6 7 8 9 10 11 12 13 14 15while(<LOG>) #Whileschleife für die Durchsuchung der Datei { if($_ =~ $versch) #Datei auf "Verschieben" prüfen { $cversch ++; } if($_ =~ $korr) #Datei auf "eingepflegt" prüfen { $cerflg ++; } if($_ =~ $err) #Datei auf "Fehler" prüfen { $cerr ++; } }
1 2 3 4 5 6
while (my $line = <LOG>) #Whileschleife für die Durchsuchung der Datei { if ($line =~ /$versch/) #Datei auf "Verschieben" prüfen { $cversch ++; }