Logdatei ab bestimmter Zeile durchsuchen (solved) (Allgemeines zu Perl)

[thread]18075[/thread]

Logdatei ab bestimmter Zeile durchsuchen [solved]

Tags: perl5 Similar Threads

Readers: 20

Articles: hide open all | hide show old branches

+12 replies
deadfm

2013-01-22 15:43
User since
2013-01-22
7 articles
BenutzerIn
Hallihallo, Menschen! :)

Ich hänge momentan an einem kleinen Problemchen und wollte mich mal an euch wenden, in der Hoffnung ihr könnt mir etwas weiter helfen.

Ich habe die aufgabe, ein Perlskript zu schreiben, welches eine Logdatei nach gewissen Einträgen durchsucht, diese dann zählt und im nachhinein auf dem Bildschirm ausgibt, z.b. durchsucht das Skript die Datei nach dem String "eingepflegt", zählt diese dann und gibt sie aus.

Das habe ich soweit schon hinbekommen, zum Schluss steht dann "Erfolgreich eingepflegt: anzahl" etc, und das natürlich aus der gesamten Datei.
Nun ist es so, dass ich das eigentlich nur für einen Bestimmten Bereich machen soll. In dem Logfile sind mehrere Prozesse mitgeloggt worden und ich bräuchte dieses ganze Prozedere nur von Zeile soundso bis Zeile soundso.

Was ich bislang gemacht habe war, die Datei komplett in ein Array einzulesen und dann hinterher mit "splice" die Elemente aus dem Array bis zu der Zeile, die ausgewertet werden soll abgeschnitten.

Allerdings ist das nun keine Universallösung und kann nur spezifisch bei dieser einen Datei angewandt werden.
Code (perl): (dl )

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";
Ich hoffe ihr könnt mir ein wenig helfen, bin noch absoluter neuling was Perl betrifft.

Danke schonmal im Vorraus!
Last edited: 2013-01-22 15:46:52 +0100 (CET)
- +11 replies
- GUIfreund
  
  2013-01-22 19:08
  
  User since
  2011-08-08
  559 articles
  BenutzerIn
  
  Vorschlag 1: Verzichte auf das Array, lies die Datei zeilenweise und prüfe die jeweilige Zeile sofort.
  
  Vorschlag 2: Wenn du beim Starten deines Skripts weißt, welcher Bereich interessant ist, gib die erste und letzte Zeile am Anfang mit ein.
  Gruß
  GUIfreund
  - deadfm
    
    2013-01-22 19:24
    
    User since
    2013-01-22
    7 articles
    BenutzerIn
    
    Erstmal danke für die schnell Antwort!
    
    Vorschlag 1: Meinst du, ich soll das dann per $_ bzw $. (Unterschied ist mir grade nicht 100% bekannt) machen?
    
    Vorschlag 2: Wie ist denn das möglich? Ich kenne ja nur die Methode mit den Arrays, deswegen komme ich da ja nicht weiter :D
  - +4 replies
  - deadfm
    
    2013-01-22 20:19
    User since
    2013-01-22
    7 articles
    BenutzerIn
    
    Also okay, ich weiß nicht wie man hier Beiträge editiert, deswegen sry für doppelpost..
    
    Code (perl): (dl )
    
    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 ++; } }
    
    So in etwa? Da habe ich nämlich irgendwie das Problem, dass die Variablen trotz den ifAnweisungen 0 enthalten, und genau das bekomme ich auch raus :(
    - +2 replies
    - FIFO
      
      2013-01-22 20:40
      
      User since
      2005-06-01
      469 articles
      BenutzerIn
      
      Ist der ganze Inhalt der Zeile 'Verschieben', oder beginnt sie nur damit?
      Im ersten Fall: Denk dran, das Zeilenendezeichen zu entfernen (chomp()), wenn Du zeilenweise von einem Handle liest (gilt übrigens auch für <STDIN>).
      Ansonsten: nicht auf Gleichheit (eq) prüfen, sonder Regulären Ausdruck verwenden:
      
      Code (perl): (dl )
      
      1 2 3 4 5
      
      while (my $line = <LOG>) { $cversch++ if $line =~ /^Verschieben/; # 'Verschieben' am Zeilenanfang # usw. }
      
      Wenn Groß-Kleinschreibung ignoriert werden soll: /^Verschieben/i
      
      edit Ach ja, unbedingt empfehlenswert am Anfang aller Deiner hoffentlich zahlreichen zukünftigen Perl-Skripte:
      
      Code (perl): (dl )
      
      1 2
      
      use strict; use warnings;
      
      Editiert von FIFO: Ergänzung zu chomp()
      Last edited: 2013-01-22 20:51:12 +0100 (CET)
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - deadfm
        
        2013-01-22 22:20
        
        User since
        2013-01-22
        7 articles
        BenutzerIn
        
        Vielen Dank für deine Antwort!
        Werde das morgen früh direkt mal versuchen umzusetzen.
        Die Begriffe Verschieben etc. sind Wörter innerhalb der Zeilen. Die Wörter sollen nur gezählt werden
    - pq
      
      2013-01-22 20:58
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      2013-01-22T19:19:24 deadfm
      Also okay, ich weiß nicht wie man hier Beiträge editiert,
      
      gleich neben den antwort-buttons under dem beitrag gibts einen editieren-button
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +5 replies
  - deadfm
    
    2013-01-23 12:16
    User since
    2013-01-22
    7 articles
    BenutzerIn
    
    Soo, habe es jetzt mal ohne Arrays versucht:
    
    Code (perl): (dl )
    
    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";
    
    Das funktioniert an sich genauso, nur wie kann ich nun festlegen, ab welcher Zeile die Datei Durchsucht wird?
    Last edited: 2013-01-23 12:19:32 +0100 (CET)
    - +2 replies
    - Linuxer
      
      2013-01-23 12:28
      
      User since
      2006-01-27
      3891 articles
      HausmeisterIn
      
      Du kannst vor der While-Schleife x-mal zeilenweise lesen und das gelesene ignorieren/verwerfen.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      # 180 mal zeilenweise aus Datei lesen und ignorieren <FILEHANDLE> for 1 .. 180; while ( <FILEHANDLE> ) { # ... weiter geht's }
      
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - deadfm
        
        2013-01-23 13:07
        
        User since
        2013-01-22
        7 articles
        BenutzerIn
        
        Holla, das ist ja der Wahnsinn :D
        Ist ja doch recht simpel...
        
        Besten Dank!!
    - +2 replies
    - FIFO
      
      2013-01-23 13:11
      
      User since
      2005-06-01
      469 articles
      BenutzerIn
      
      2013-01-23T11:16:33 deadfm
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
      
      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 ++; } }
      
      Mal eine Anmerkung zum Programmierstil: Du verwendest das implize magische Setzen von $_, z.B. in while (<LOG>), was gleichbedeutend ist mit while (local $_ = <LOG>). Diese Kurzformen haben eine gewisse Erotik, aber auch ihre Tücken. Konsequenterweise müsstest Du auch die RegEx-Vergleiche dann so schreiben: if (/$versch/). Nach meiner Erfahrung ist die implizite Verwendung von $_ nur bei ganz kleinen Konstrukten sinnvoll, die man mit einem Blick erfasst. Sprechende Laufvariablen sorgen dafür, dass der Code auch nach längerer Zeit sofort verständlich ist:
      
      Code (perl): (dl )
      
      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 ++; }
      
      Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"
      - deadfm
        
        2013-01-23 13:23
        
        User since
        2013-01-22
        7 articles
        BenutzerIn
        
        Noch blicke ich da leider nicht 100%ig durch, aber das war ja auch meine erste Begegnung mit Perl.
        Jedenfalls Danke für deinen Tipp! Habe den Code so umgeschrieben wie du vorgeschlagen hattest, vielleicht kann ich mir das ja so angewöhnen :D Funktioniert natürlich immer noch genau so :)

View all threads created 2013-01-22 15:43.